Delphi-Help

Описание

function IsLeapYear ( const Year : Word ) : Boolean;

Функция IsLeapYear возвращает True, если данное календарное значение является високосным годом.
Год может иметь значение 0.. 9999

Пример кода

begin
if IsLeapYear(2000)
then ShowMessage('2000 был високосным годом')
else ShowMessage('2000 не был високосным годом');
end;

2000 был високосным годом

Примечание