Prüfen auf Schaltjahr (.NET) Wie wird eigentlich ermittelt, ob es sich bei einer bestimmten Jahreszahl um ein Schaltjahr handelt oder nicht?
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  16.710
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 14 Bewertung insgesamt: mittelmäßig Durchschnittliche Bewertung: 1.9 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?
Hierzu können Sie entweder die IsLeapYear-Funktion aus dem .NET Framework verwenden...

If DateTime.IsLeapYear(Jahreszahl) Then

... oder alternativ die allgemeingültige Regel zur Ermittlung von Schaltjahren in eine eigene Funktion verpacken:

Definition:
Es handelt sich um ein Schaltjahr, wenn sich die Jahreszahl

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

' Berechnung des Schaltjahres nach
' den allgemeingültigen Regeln
Public Function IsSchaltjahr(ByVal Jahr As Integer) As Boolean
  If Jahr < 100 Then Jahr += 2000
  If (Jahr Mod 4 = 0) AND ((Jahr Mod 100 <> 0) Or (Jahr Mod 400 = 0)) Then
    Return True
  Else
    Return False
  End If
End Function