| 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: 17.306 |
| https://www.tools4vb.com | 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
