Schaltjahr Ja/Nein?

[d'r Bastler]

Moin,
als Snippet oder Spickzettel kann man's manchmal brauchen:

Code: Alles auswählen

Function IsLeap(Year As Integer) As Boolean
    IsLeap = Day(DateSerial(Year, 2, 29)) = 29
End Function

Den Code in ein Allg. Modul und die Funktion erscheint in der Formelzeile im Arbeitsblatt. = IsLeap(A1) in einer beliebigen Zelle wertet die Jahreszahl in A1 aus. Rückgabe True/False

Viel Spaß und Grüße