Schaltjahr-Macros

hardfalcon · Beitrag von **hardfalcon** » 11.10.2007 15:55

Ja, ich weiss, das ist für die meisten hier gefrorener Kaffee, aber es gibt halt trotzdem immer wieder mal Leute, die, wie ich, mathematisch minderbemittelt sind...

Code: Alles auswählen

Macro IsLeapYear(year)
((Not year%4) And (year%100) Or (Not year%400))
EndMacro


Debug "IsLeapYear(2007): "+Str(IsLeapYear(2007))
Debug "IsLeapYear(2008): "+Str(IsLeapYear(2008))

//EDIT: Vom julianischen auf den gregorianischen Kalender umgestellt (besser spät als nie

), LastLeapYear() und NextLeapYear() reiche ich irgendwann mal nach, jetzt stehen Hausaufgaben auf dem Programm...

AND51 · Beitrag von **AND51** » 11.10.2007 16:05

Danke für die Snippets!

Aber ich hab mal ne Frage dazu: War es nicht so, dass boolsche Ausdrücke nicht in Termen unterstützt werden?

AFAIK wird

Code: Alles auswählen

a = 1

b = 3 + 2 + (a And 1)
Debug b

nicht unterstützt bzw. sollte nicht verwendet werden. Würde das dein IsLeapYear()-Makro nicht gefährlich machen?

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 11.10.2007 16:10

das not führt einen boolcast durch, ist also insofern das "korrekte" workaround.

aber tatsächlich sind die funktionen unvollständig, denn ein schaltjahr ist nicht einfach jedes vierte jahr...
jedes durch 100 teilbare ist keines, aber durch 400 teilbar doch wieder.
also, 1900 war keines, 2000 war eines, 2100 wird keines sein.

X0r · Beitrag von **X0r** » 11.10.2007 16:11

>jedes durch 100 teilbare ist keines, aber durch 400 teilbar doch wieder.

Welcher Physiker hat das erfunden?

Beitrag von **NicTheQuick** » 11.10.2007 16:13

Hab neulich erst sowas gemacht, aber etwas erweitert. Findet ihr hier: Date-Funktionen

hardfalcon · Beitrag von **hardfalcon** » 11.10.2007 16:18

Ich hab das eben auch mit Schrecken in der Wikipedia gelesen, dass meine Macros nur dem Julianischen Kalender entsprechend korrekt arbeiten, laut dem gregorianischen Kalender jedoch falsch sind...
Ich verweise also an dieser Stelle einfach mal stinkefaul, wie ich nunmal bin, auf den Thread, den NicTheQuick verlinkt hat...

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 11.10.2007 16:21

X0r hat geschrieben:>jedes durch 100 teilbare ist keines, aber durch 400 teilbar doch wieder.

Welcher Physiker hat das erfunden?

erfunden hat es der, der die Erde erschaffen hat... Bild

die umsetzung ist lediglich eine korrekte interpretation der nachkommastellen bei den realen gegebenheiten...

vermutlich gibt es da noch mehr regeln dafür, wie jedes 2000ste doch wieder nicht und so...