Help for this page

Select Code to Download


  1. or download this
    sub _daygm {
    $_[3] + ($Cheat{pack("ss",@_[4,5])} ||= do {
...
    365*$year + $year/4 - $year/100 + $year/400 + ($month*306 + 5)/10 
+- $Epoc
    });
}
  2. or download this
    sub _daygm {
    $_[3] + ($Cheat{pack("ss",@_[4,5])} ||= do {
...
    365*$year + $year/4 - $year/100 + $year/400 + ($month*306 + 5)/10 
+- $Epoc
    });
}
  3. or download this
    use integer;

...
      ($_+10)/12-1
   );
}
  4. or download this
    month was new new
----- --- --- ---
...
21    0   1   1
22    0   1   1
23    0   1   1