Anzahl der Tage eines Monats

Posted by Patrick Krusenotto on Okt 6, 2007 in Algorithmen, Allgemein, Perl |

Manche Sachen sind banal, schon hundert mal da gewesen und doch oft erforderlich. Dann kann man erstmal googeln… Die Berechnung der Monatslänge unter Berücksichtigung von Schaltjahren gehört dazu. Die erste Version eines Ausdrucks ohne Schleifen und Abfragen ist mir 1983 in einem Programmierbuch für den Taschenrechner TI-59 begegnet. Das Problem ist natürlich so alt wie der gregorianische Kalender selbst… Kein Wunder also!

Entsprechend dem gregorianischen Kalender kann man die Berechnung folgendermaßen durchführen.

# Monat 1 <= $m < 12 und Jahr $y > 1530
$laenge = $m-2?30+($m*3%7<4):28+!($y%4||$y%400*!($y%100))

gefunden bei http://www.arcknowledge.com/gmane.comp.lang.perl.fun/2003-05/msg00077.html

Tags: ,

Reply

Copyright © 2012 Das Algorithmenwerk* All rights reserved. Theme by Laptop Geek.