VBA excel год является високосным, если его номер кратен 4, однако из кратных 100...

Question

VBA excel год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400 (например, 1700,1800 и 1900 -невисокосные года, 2000 - високосный). Дано натуральное число n. Определить, являться ли високосным год с таким номером.
Только надоVBA exel

Answer 1

Sub god()
    g = CInt(InputBox("Введите год"))
    If (g Mod 400 = 0) Or (g Mod 4 = 0 And g Mod 100 <> 0) Then
        MsgBox "Этот год вискосный"
    Else
        MsgBox "Этот год не вискосный"
    End If
End Sub