Feedback

VB - Prüfen ob ein Jahr ein Schaltjahr ist

Veröffentlicht von am 14.11.2006
(2 Bewertungen)
Diese Funktion prüft ein Jahr ob dieses ein Schaltjahr ist.

Regeln:
Alle 4 Jahre ist EIN Schaltjahr : TRUE
Alle 100 Jahre ist KEIN Schaltjahr : FALSE
Alle 400 Jahre ist EIN Schaltjahr : TRUE
Public Function IsLeapYear(ByVal Year As Integer) As Boolean
    Return ((Year Mod 4 = 0 And Year Mod 100 <> 0) Or (Year Mod 400 = 0))
End Function
Abgelegt unter Schaltjahr.

1 Kommentare zum Snippet

Koopakiller schrieb am 11.05.2014:
Interessant wie man durch ein zufälliges Snippet die Regeln der Schaltjahre kennenlernt... Wer es nachlesen möchte:
http://de.wikipedia.org/wiki/Schaltjahr#Gregorianischer_Kalender

Ich finde allerdings die Beschreibung verwirrend, denn Alle 100 Jahre ist kein Schaltjahr, was true ist. Im Snippet wurde es allerdings richtig umgesetzt.
 

Logge dich ein, um hier zu kommentieren!