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