title image


Smiley wen's interessiert - So geht's:
wenn auch nicht so elegant, wie ich's mir gewünscht hätte.Mir fiel zufällig ein, dass ich in meinem Terminplaner ein paar Tabellen mit ner Formel habe, mit deren Hilfe man den Wochentag für jedes Datum von 1801 bis 2099 errechnen kann. Habe einen kleinen Auszug aus einer Tabelle genommen und das ganze Prozedere in ein Programm umgemünzt. Den tieferen Hintergrund des Ganzen habe ich nicht verstanden, aber mein Programm läuft. Wen's interessert: Weihnachten 2003 ist an einem Mittwoch. Und wenn jetzt jemandem noch eine elegantere Lösung einfällt, bitte posten!# GETTHEWEEKDAYTILL2005 $eingabe{jj} = 03;##### Beispiel 24.12.2003$eingabe{mm} = 12;$eingabe{tt} = 24;@jahr00 = (6,2,3,6,1,4,6,2,5,0,3,5);@jahr01 = (1,4,4,0,2,5,0,3,6,1,4,6);@jahr02 = (2,5,5,1,3,6,1,4,0,2,5,0);@jahr03 = (3,6,6,2,4,0,2,5,1,3,6,1);@jahr04 = (4,0,1,4,6,2,4,0,3,5,1,3);@jahr05 = (6,2,2,5,0,3,6,1,4,6,2,4);@getit = (\@jahr00,\@jahr01,\@jahr02,\@jahr03,\@jahr04,\@jahr05);$lookfor = ${$getit[$eingabe{jj}]}[$eingabe{mm}-1] + $eingabe{tt};for ($a=1;$a { $b = $a; if ($a == 1 || $a == 2) { for($c = $b+35;$b { if ($lookfor == $b) { $weekday = $a; } } } else { for($c = $b+28;$b { if ($lookfor == $b) { $weekday = $a; } } } }$weekday =~ s/1/Sonntag/;$weekday =~ s/2/Montag/;$weekday =~ s/3/Dienstag/;$weekday =~ s/4/Mittwoch/;$weekday =~ s/5/Donnerstag/;$weekday =~ s/6/Freitag/;$weekday =~ s/7/Samstag/;print $weekday;cu, DDDan

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: