Ein Jahr ist ein Schaltjahr, wenn
die Jahreszahl durch 4,
nicht aber durch 100 oder 400 teilbar ist.
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
|
