Forum: Object-Pascal / Delphi-Language
Delphi
by Stormy,
16. Jul 2009
Dachte mir schon das die Funktion es ähnlich macht aber habe sie dennoch nie benutzt.
Ist ja auch wie man sieht schnell selber geschrieben. :)
Forum: Object-Pascal / Delphi-Language
Delphi
by Stormy,
16. Jul 2009
Gut soweit vor oder zurück wollte ich nicht gehen.
Wers braucht muss das dann eben auch noch abfangen z.B. mit mod 400.
...
1600 mod 400 = 0 <- Schaltjahr
1700 mod 400 = 100
1800 mod 400 = 200
1900 mod 400 = 300
2000 mod 400 = 0 <- Schaltjahr
2100 mod 400 = 100
Forum: Object-Pascal / Delphi-Language
Delphi
by Stormy,
16. Jul 2009
Hi,
wozu so eine Funktion wenn es Mod gibt?
Einfach den 4. Modulus des Jahres ausrechnen also zum Beispiel 1996 mod 4.
Wenn dann 0 raus kommt war wie in diesem Fall 1996 ein Schaltjahr.
...
1996 mod 4 = 0 <- Schaltjahr
1997 mod 4 = 1
1998 mod 4 = 2