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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы