Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.19;
Скачать: 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 вся ветка

Текущий архив: 2004.12.19;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.022 c
1-1102067434
sloug
2004-12-03 12:50
2004.12.19
XPManifest


1-1102413295
БареллО
2004-12-07 12:54
2004.12.19
Совместимость разных версий Delphi


1-1102005229
Unknown user
2004-12-02 19:33
2004.12.19
Соответствие классов


14-1101823807
Jeer
2004-11-30 17:10
2004.12.19
Поэтическая Windows:)


1-1102107387
Bobby Digital
2004-12-03 23:56
2004.12.19
PopUpmenu