Prüfen ob ein Jahr ein Schaltjahr ist

Sprache: VB

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

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

Alte URL: /snippet/pruefen-ob-ein-jahr-ein-schaltjahr-ist/316

1 Kommentar

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 [b]kein[/b] Schaltjahr, was [b]true[/b] ist. Im Snippet wurde es allerdings richtig umgesetzt.

Koopakiller sagt:

Mai 11, 2014 um 2:29 a.m. Uhr

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 [b]kein[/b] Schaltjahr, was [b]true[/b] ist. Im Snippet wurde es allerdings richtig umgesetzt.