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 IfEnd Sub