Tippseite

VB-Homepage Tipp 162

Schaltjahrabfrage und andere Jahreswerte

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)

Tipp-Download

Quelle :