Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Denmin © (2004-12-03 15:13:00)
Здравствуйте.
Скажите пожалуйста, есть ли стандартная функция определяющая високосный год или нет?
Заранее благодарен.

Jeer (2004-12-03 17:42:00) [1]
Shadow-st (03.12.04 16:03) [7]

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

Shadow-st (2004-12-03 16:03:00) [2]
А нельзя просто поделить год на 4 и если нет сотатка то год високосный????

Denmin (2004-12-03 15:45:00) [3]
спасибо.

Denmin (2004-12-03 15:40:00) [4]
спасибо.

Verg (2004-12-03 15:31:00) [5]
Ой да, функция та уж прямо такая :) В одну строку.

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

begin...end (2004-12-03 15:21:00) [6]
Насчёт Delphi 5 - не в курсе, а в Delphi 7 есть. Называется IsInLeapYear.

BlackTr (2004-12-03 15:19:00) [7]
IsLeapYear

MBo (2004-12-03 15:18:00) [8]
см. справку по Date/time routines

Наверх

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