|
Registriert seit: 8. Okt 2005
Ort: LPZ
73 Beiträge
Delphi 6 Enterprise
|
Re: Prüfe Datum ob älter als ein Jahr
16. Jul 2009, 08:57
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
1999 mod 4 = 3
2000 mod 4 = 0 <- Schaltjahr
2001 mod 4 = 1
...
Gruß
Stormy
|