Скачать: CL | DM;

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

← →
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]

спасибо.

---

← →
Denmin ©   (2004-12-03 15:45) [6]

спасибо.

---

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

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

---

← →
Jeer ©   (2004-12-03 17:42) [8]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c