Подскажите функцию определения високосного года

← →
V9 (2007-05-16 13:24) [0]

Пожалуйста :)

← →
Kolan © (2007-05-16 13:26) [1]

В DateUtils искал?

← →
V9 (2007-05-16 13:29) [2]

Kolan © (16.05.07 13:26) [1]

Да, спасибо

Unit DateUtils

Category
date/time routines

function IsInLeapYear(const AValue: TDateTime): Boolean;

← →
Anatoly Podgoretsky © (2007-05-16 13:31) [3]

> V9 (16.05.2007 13:24:00) [0]

IsLeapYear - дословный перевод на аглийский

← →
V9 (2007-05-16 13:37) [4]

Anatoly Podgoretsky © (16.05.07 13:31) [3]

Что такое leap, пришлось даже в Lingvo глянуть: раньше не встречал

← →
Darvin © (2007-05-16 15:39) [5]

Вообще-то <год> mod 4 = 0

Вообще-то <год> mod 4 = 0

Вообще-то нет.

> Вообще-то <год> mod 4 = 0

Не тут-то было:
(Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0))