Функція IsLeapYear в Delphi повертає True, якщо цей календарний рік високосний.
SysUtils unit
function IsLeapYear (const Year : Word) : Boolean;
Функція IsLeapYear повертає True, якщо це календарне значення є високосним роком.
Рік може мати значення 0.. 9999
Функція IsLeapYear: Перевіряємо чи був 2000 високосним?
begin
if IsLeapYear(2000)
then ShowMessage('2000 був високосним роком')
else ShowMessage('2000 не був високосним роком');
end;
Результат
2000 був високосним роком
Подібні функції, процедури та команди
DayOfTheYear — видає день року для значення TDateTime (ISO 8601).
DaysInAYear — видає кількість днів на рік.
MonthDays — видає кількість днів на місяці.
MonthOfTheYear — видає місяць року для значення TDateTime.
