Schaltjahr

[Daniel B]

Wie Luckie schon sagte gibt es die Funktion in Delphi bereits, die folgendermassen aussieht:
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); Und das ist meine etwas schnellere Lösung:
Result := ((Year and 3) = 0) and ((Year mod 100 > 0) or (Year mod 400 = 0));