Help for this page

Select Code to Download


  1. or download this
    use strict;
use Date::Tie;

...
$date{weekday} = 5;  # monday is 1, friday is 5
$date{week} += 1;    # advance 1 week
print "2nd Friday in April is $date{month}-$date{day}\n";
  2. or download this
    3rd Sunday in March is 03-17
2nd Friday in April is 04-12