Prüfen auf Schaltjahr Wie wird eigentlich ermittelt, ob es sich bei einer bestimmten Jahreszahl um ein Schaltjahr handelt oder nicht?Nachfolgend möchten wir Ihnen zwei Ro...
Autor:   Michael Becker	Bewertung:     [ Jetzt bewerten ]	Views:  23.175
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 39 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wie wird eigentlich ermittelt, ob es sich bei einer bestimmten Jahreszahl um ein Schaltjahr handelt oder nicht?
Nachfolgend möchten wir Ihnen zwei Routinen vorstellen, mit denen geprüft werden kann, ob es sich um ein Schaltjahr handelt oder nicht.

Routine 1:
Wir ermitteln die Anzahl der Tage im Februar mit Hilfe der DaterSerial und Format-Funktion. Hat der Februar 29 Tage, so handelt es sich um ein Schaltjahr, andernfalls nicht.

' 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:
Für die Berechnung des Schaltjahres verwenden wir die allgemeingültigen Regeln:
Es handelt sich um ein Schaltjahr, wenn sich die Jahreszahl

• durch 4 ohne Rest UND
• durch 100 mit Rest oder durch 400 ohne Rest

' 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