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
|
