Re: [MacPerl-AnyPerl] input to formatted date

[email protected] ("John Murray") Mon, 12 Mar 2001 21:31:47 +1100
Newsgroups perl.macperl.anyperl
Message-ID <07a601c0aadf$a5689f60$445323cb@opalintel>
> 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
++};