| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

V9 ©   (2007-05-16 13:24:00) 

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

---

Reindeer Moss Eater   (2007-05-16 15:52:00) [1]

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

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

---

stakan   (2007-05-16 15:52:00) [2]

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

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

---

Darvin   (2007-05-16 15:39:00) [3]

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

---

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

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

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

---

Anatoly Podgoretsky   (2007-05-16 13:31:00) [5]

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

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

---

V9   (2007-05-16 13:29:00) [6]

Kolan ©   (16.05.07 13:26) [1]

Да, спасибо

Unit DateUtils

Category
date/time routines

function IsInLeapYear(const AValue: TDateTime): Boolean;

---

Kolan   (2007-05-16 13:26:00) [7]

В DateUtils искал?

---

Наверх