Есть ли функция определяющая високосный год или нет?

← →
Denmin © (2004-12-03 15:13) [0]

Здравствуйте.
Скажите пожалуйста, есть ли стандартная функция определяющая високосный год или нет?
Заранее благодарен.

← →
MBo © (2004-12-03 15:18) [1]

см. справку по Date/time routines

← →
BlackTr (2004-12-03 15:19) [2]

IsLeapYear

← →
begin...end © (2004-12-03 15:21) [3]

Насчёт Delphi 5 - не в курсе, а в Delphi 7 есть. Называется IsInLeapYear.

← →
Verg © (2004-12-03 15:31) [4]

Ой да, функция та уж прямо такая :) В одну строку.

function IsLeapYear(Year: Word): Boolean;
begin
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;

← →
Denmin © (2004-12-03 15:40) [5]

спасибо.

← →
Shadow-st (2004-12-03 16:03) [7]

А нельзя просто поделить год на 4 и если нет сотатка то год високосный????

Shadow-st (03.12.04 16:03) [7]

Это слишком просто:))
Будет тебе подмножество високосных и даже некоторые невисокосные.

Есть ли функция определяющая високосный год или нет? Найти похожие ветки