|
Wann ist ein Jahr ein Schaltjahr (engl.: "leap-year"),
wann ist es keines? Die Faustregel, dass die Jahreszahl durch 4
teilbar ist, reicht alleine nicht. Volle Jahrhunderte sind keine
Schaltjahre, außer die Jahreszahl lässt sich wiederum durch 400
teilen - dann ist es doch wieder ein Schaltjahr. Daraus ergibt sich
folgende einfache Funktion zur Prüfung, ob ein Jahr ein Schaltjahr
ist:
Public Function IsLeapYear(ByVal TestYear As Integer) _
As Boolean
If TestYear Mod 4 = 0 Then
If TestYear Mod 100 = 0 Then
If TestYear Mod 400 = 0 Then
IsLeapYear = True
End If
Else
IsLeapYear = True
End If
End If
End Function
 |
Die Schaltjahr-Logik in einer einfachen
Funktion
|
Die Gegenprobe, nämlich ob die Datumsfunktionen in Visual Basic
Schaltjahre korrekt erkennen und behandeln, können Sie anhand der
banalen Regel vornehmen, dass in einem Schaltjahr der Tag vor dem 1.
März ein 29. Februar sein muss:
Public Function VerifyLeapYear(ByVal TestYear As Integer)
VerifyLeapYear = _
CBool(Day(CDate(DateSerial(TestYear, 3, 1)) - 1) = 29)
End Function
|
So verifizieren Sie, ob die
Datums-Funktionen in Visual Basic Schaltjahre korrekt erkennen
und behandeln
|
|