-----BEGIN PGP SIGNED MESSAGE----- On Wed, 1 Sep 1999, Aaron Van Couwenberghe wrote:
> I need an algorithm that can match a number of days with any month. For > this to be useful, I need a function that can tell me if it's a leap year > this year. Just throwing one more subroutine onto the fire... It doesn't work with years before 0, and IIRC it'll go wrong in 5048 or whenever the next adjustment is needed. sub isLeapYear{ my $year=shift || die "&isLeapYear needs a year as input!\n"; $year =~ /^\d/ || die "&isLeapYear needs a number as input!\n"; $year % 400 or return 1; $year % 100 or return 0; $year % 4 or return 1; return 0; } - -- finger for PGP public key. -----BEGIN PGP SIGNATURE----- Version: 2.6.3ia Charset: noconv iQCVAwUBN82UDb7M/9WKZLW5AQF/GgQAmepoO1D+aj8Ib8UejtGJ7Odu+m2tuBR+ NQcFN5BzVOS2SGs0xYV0INrwuRhcK28Jio0tWuDBIQxVVSexjSV0kxev7L156bxL 02sEOYIDncNRonKqGofOFkASAvxHUsPxQlXZdFjEYyor44N/vOqrE/XnfVjXq0rH rYFILiEpOrk= =UMsC -----END PGP SIGNATURE-----