Select Code to Download

sub days_since_1900 {
   use integer;
...
   my $j = $y - $i/10;
   return $d + 365*$j + $j/4 - $j/100 + $j/400 + ($i*306 + 5)/10 - 693
+902;
}