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

Алгоритм проверки високосного года:

• если год делится на 400 — високосный;
• иначе если делится на 100 — невисокосный;
• иначе если делится на 4 — високосный;
• иначе — невисокосный.

Код на VBA (функция):

Function IsLeapYear(n As Long) As Boolean
If n Mod 400 = 0 Then
IsLeapYear = True
ElseIf n Mod 100 = 0 Then
IsLeapYear = False
ElseIf n Mod 4 = 0 Then
IsLeapYear = True
Else
IsLeapYear = False
End If
End Function

Пример использования в ячейке Excel: =IsLeapYear(A1) вернёт ИСТИНА или ЛОЖЬ.

0 0 Пожаловаться