Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl

...
    printf "%04d-%02d-%02d\n", $year, $month, $day;
    ($year, $month, $day) = Add_Delta_Days($year, $month, $day, 7);
}

Select or download this

my %day = qw(
  Sun 0
...
);

($year, $month, $day) = Add_Delta_Days($year, $month, $day, (7 + $day{
+Mon} - $dow) % 7);