Ein Jahr ist ein Schaltjahr, wenn die Jahreszahl durch 4, aber nicht 100 teilbar ist (oder umgekehrt).

Ist das Jahr durch 400 teilbar, handelt es sich ebenfalls um ein Schaltjahr.
Die folgende Funktion berechnet dies und gibt entsprechend Wahr oder Falsch zurück:

Function Schaltjahr(Jahreszahl)
If (Jahreszahl Mod 4) = 0 And (Jahreszahl Mod 100) <> 0 Or _
((Jahreszahl Mod 400) = 0) Then
Schaltjahr = True
Else
Schaltjahr = False
End If
End Function

Die nächsten Schaltjahre: 2004 - 2008 - 2012 - 2016

webmaster@schaltjahr.de