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

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

Question

Информатика

Римлянин

28 декабря, 10:04

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

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

+5

Ответы (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