IsLeapYear(Year: Integer): Boolean;
Year - год, который необходимо проверить.
Метод IsLeapYear возвращает признак високосного года.
Sub Main;
Var
b, b1: Boolean;
Begin
b := DateTime.IsLeapYear(2000);
b1 := DateTime.IsLeapYear(2001);
End Sub Main;
После выполнения примера в переменной «b» будет содержаться значение «True», а в переменной «b1» - значение «False».
См. также: