Wie wird eigentlich ermittelt, ob es sich bei einer bestimmten Jahreszahl um ein Schaltjahr handelt oder nicht? Routine 1: ' Routine 1: ' Auf Schaltjahr prüfen mit Hilfe der DateSerial- ' und Format-Funktion Public Function IsSchaltjahr(ByVal Jahr As Integer) As Boolean If Jahr < 100 Then Jahr = 2000 + Jahr If Format$(DateSerial(Jahr, 3, 1) - 1, "d") = 29 Then IsSchaltjahr = True Else IsSchaltjahr = False End If End Function Routine 2:
' Routine 2: ' Berechnung des Schaltjahres nach ' den allgemeingültigen Regeln Public Function IsSchaltjahr(ByVal Jahr As Integer) As Boolean If Jahr < 100 Then Jahr = 2000 + Jahr If (Jahr Mod 4 = 0) AND ((Jahr Mod 100 <> 0) Or _ (Jahr Mod 400 = 0)) Then IsSchaltjahr = True Else IsSchaltjahr = False End If End Function |