Rubrik: Datum/Zeit und Timer · Datums- und Zeit-Funktionen | VB-Versionen: VB.NET | 22.08.07 |
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: | Views: 16.724 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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