Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
use strict;
...
}
print "First week of 2013: ".weekToDays ( 1, 2013) ."\n" ;
print "Second week of 2013: ".weekToDays ( 2, 2013) ."\n" ;
  2. or download this
    First week of 2013: 31/12/2012 to 6/1/2013
Second week of 2013: 7/1/2013 to 13/1/2013
  3. or download this
    my ($y, $m, $d) = Add_Delta_Days($year2, $month, $day, 6);