Help for this page

Select Code to Download


  1. or download this
    my $start="$y-$m-01";my $first="$y-$m-01";
    my $datestr = UnixDate(ParseDate($start), " %b");my $last_day=ParseDat
    +e("last day in $datestr");
    ...
    my @t_dates = &ParseRecur("0:0:0:1:0:0:0",$first,$start,$end);
    print  "@t_dates";
    print "\n------\n";
    
  2. or download this
    2011-01-01,2011-01-01,2011-01-31
    2011010100:00:00 2011010200:00:00 2011010300:00:00 2011010400:00:00 20
    +11010500:00:00 2011010600:00:00 2011010700:00:00 2011010800:00:00 201
    +1010900:00:00 2011011000:00:00 2011011100:00:00 2011011200:00:00 2011
    +011300:00:00 2011011400:00:00 2011011500:00:00 2011011600:00:00 20110
    +11700:00:00 2011011800:00:00 2011011900:00:00 2011012000:00:00 201101
    +2100:00:00 2011012200:00:00 2011012300:00:00 2011012400:00:00 2011012
    +500:00:00 2011012600:00:00 2011012700:00:00 2011012800:00:00 20110129
    +00:00:00 2011013000:00:00 2011013100:00:00
    ------
    ...
    2011-06-01,2011-06-01,2011-06-30
    2011060100:00:00 2011060200:00:00 2011060300:00:00 2011060400:00:00 20
    +11060500:00:00 2011060600:00:00 2011060700:00:00 2011060800:00:00 201
    +1060900:00:00 2011061000:00:00 2011061100:00:00 2011061200:00:00 2011
    +061300:00:00 2011061400:00:00 2011061500:00:00 2011061600:00:00 20110
    +61700:00:00 2011061800:00:00 2011061900:00:00 2011062000:00:00 201106
    +2100:00:00 2011062200:00:00 2011062300:00:00 2011062400:00:00 2011062
    +500:00:00 2011062600:00:00 2011062700:00:00 2011062800:00:00 20110629
    +00:00:00 2011063000:00:00
    ------