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

Только надоVBA exel

Question

Информатика

Альфия

24 апреля, 18:03

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

Только надоVBA exel

+4

Ответы (1)

Знаешь ответ?

Гермес · 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