Home > Visual Basic Classic > Datum/Zeit > Prüfen ob ein Jahr ein Schaltjahr ist

Prüfen ob ein Jahr ein Schaltjahr ist

Veröffentlicht am 16.03.2010 von Sebastian Krogolewski

Artikelinformationen

Sprache:
Visual Basic 6
Datenbank:
keine

Artikel speichern

del.icioMister WongGoogleLinkarenaYiggSpurlFurl

Artikel bewerten

Bewertng:2.00 / 5 (1 mal bewertet)

In diesem Artikel zeigen wir Ihnen wie Sie prüfen können ob es sich bei einer Jahreszahl um ein Schaltjahr handelt oder nicht. Wir gehen dabei nach allgemeingültigen Regeln vor:

1) Alle 4 Jahre ist EIN Schaltjahr.
2) Alle 100 Jahre ist KEIN Schaltjahr.
3) Alle 400 Jahre ist EIN Schaltjahr.

 

Funktion
1
2
3
4
56
7
8
9
10
Public Function IsLeapYear(ByVal Year As Integer) As Boolean
 
'Wenn Year < 100 dann wird davon ausgegangen das es eine 2stellige Jahreszahl ist
If (Year < 100) Then
    Year = Year + 2000 End If
 
IsLeapYear = (Year Mod 4 = 0) And _
             ((Year Mod 100 <> 0) Or (Year Mod 400 = 0))
End Function

Downloads

Suchbegriffe

VB6, Visual Basic, Schaltjahr, IsLeapYear, Prüfen ob ein Jahr ein Schaltjahr ist

Suche