leap year

eli

You are not a Hardcore LiveJournal user unless this is the second time you've been able to post on February 29th :-)

First time:
http://www.livejournal.com/users/brad/2000/02/29/
Second time:
Now. :P

sub days_in_month
{   
    my ($month, $year) = @_;
    if ($month == 2)
    {               
        return 29 unless $year;  # assume largest
        if ($year % 4 == 0)
        {
          # years divisible by 400 are leap years
          return 29 if $year % 400 == 0;
    
          # if they're divisible by 100, they aren't.
          return 28 if $year % 100 == 0;

          # otherwise, if divisible by 4, they are.
          return 29;
        }
    }
    return ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)[$month-1]);
}