Dein Schaltjahr?

[RoRo]

Hi Vedat,

if($year%4==0)   { $v = 1 }
if($year%100==0) { $v = 0 }
if($year%400==0) { $v = 1 }

Ooops, genau da ist mein Fehler ... 400, nicht 1000 ... hast

ach was, nimm doch einfach mein Modul http://i-netlab.de/perlmod/ctdoc.htm *g

Btw., find ich gut wie Du die Tage eines Monats berechnest, in Kalender.pm mach ichs fast genauso http://i-netlab.de/cgi-bin/show_script.cgi?ct

... und hier noch was zum basteln
=cut
#!/usr/bin/perl
use Kalender;

for(1899..2001){
 print "Der 1.1. des Jahres $_ ist ein ";
 if(is_leapyear($_)){
  print weekday(1,1,$_)," (Schaltjahr)\n";
 }
 else{
  print weekday(1,1,$_)," \n";
 }
}
=cut

Viele Grüße aus Baden, Rolf (roro)