vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen   |   VB-Versionen: VB4, VB5, VB628.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 BeckerBewertung:     [ Jetzt bewerten ]Views:  22.358 
ohne HomepageSystem:  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
teilen läßt.

' 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