Gibt es denn im ausgewähltem Jahr einen 29.Februar ???
Das und dazu noch die Angabe ob es nun 365 oder 366 Tage sind, bzw. wieviele Tage schon
vorbei und wieviele noch in diesem Jahr kommen, können Sie ermitteln, wenn Sie
nachfolgenden Tipp verwenden.
Für unsere Schaltjahrabfrage benötigen wir lediglich eine eigene Funktion.
Diese fügen Sie unter Allgemein/Definitionen ein
Function IsSchaltjahr(ByVal sYear As String) As Boolean
If IsDate("02/29/" & sYear) Then
IsSchaltjahr = True
Else
IsSchaltjahr = False
End If
'Auswertung
If IsSchaltjahr = True Then
MsgBox sYear & " ist ein Schaltjahr"
Else
MsgBox sYear & " ist kein Schaltjahr"
End If
End Function
Um ein bestimmtes Jahr zu prüfen brauchen Sie dann nur noch folgenden
Funktionsaufruf zu definieren.
Call IsSchaltjahr(Str(1998 + Index)) ######################################################
Um die schon vergangenen Tage zu ermitteln können Sie folgendes nutzen.
MsgBox Int(DateSerial(Year(Now), 1, 1) - Now) - 2 * Int(DateSerial(Year(Now), 1, 1) - Now)
Für die noch kommenden Tage gilt folgendes.
MsgBox Int(DateSerial(Year(Now) + 1, 1, 1) - Now) |