Excel VBA - Schaltjahr

Ihr sucht eine Abfrage, in Excel VBA, damit ihr herausfinden könnt ob ein Jahr ein Schaltjahr war? Mit dem folgenden Excel Makro ist das möglich:


Option Explicit

Sub Schaltjahr()
    Dim intfrage As Integer
    intfrage = InputBox("Welche Jahreszahl soll auf Schaltjahr geprüft werden?")
    If intfrage Mod 4 = 0 And intfrage Mod 100 <> 0 Or intfrage Mod 400 = 0 Then
        MsgBox intfrage & (" ist ein Schaltjahr")
    Else
        MsgBox intfrage & (" ist kein Schaltjahr")
    End If
End Sub

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Nutzung unserer Dienste erklären Sie sich damit einverstanden, dass wir Cookies verwenden.
Weitere Informationen Ok