VBA excel год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400 (например, 1700,1800 и 1900 -невисокосные года, 2000 - високосный). Дано натуральное число n. Определить, я...
VBA excel год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400 (например, 1700,1800 и 1900 -невисокосные года, 2000 - високосный). Дано натуральное число n. Определить, являться ли високосным год с таким номером.
Только надоVBA exel
Ответ(ы) на вопрос:
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
Не нашли ответ?
Похожие вопросы