Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB4, VB5, VB6 | 28.12.00 |
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: | Views: 22.443 |
ohne Homepage | System: Win9x, 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?
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