Re: [MacPerl-AnyPerl] input to formatted date

[Christian Brechbuehler]

Also remember that years divisible by 100 are NOT leap years.  The
exception to this exception is that years divisible by 400 ARE leap
years.  That's the Gregorian Calendar.  From `man cal`:

     The Gregorian Reformation is assumed to have occurred in 1752 on the 3rd
     of September.  By this time, most countries had recognized the reforma­
     tion (although a few did not recognize it until the early 1900's.)  Ten
     days following that date were eliminated by the reformation, so the cal­
     endar for that month is a bit unusual.

So be sure you get the September 1752 right if you decide to do this
yourself :-)

  Christian

Excerpt of message (sent 12 March 2001) by John Murray:
> > if ($year % 4) = 0{$complete_months_contribution ++};
> 
> oops ... this will only get incremented if we are into march and it is a
> leap year, so we'll need to test if $monthnum > 2 as well:
> 
> if ( ($year % 4 = 0 ) && ($monthnum > 2) ){$complete_months_contribution
> ++};