Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

Количество дней в месяце.   Найти похожие ветки 

 
Hawk2   (2002-08-12 17:58) [0]

Мастера, подскажите функцию которая возвращает количество дней в указаном месяце?


 
Ученик ©   (2002-08-12 18:08) [1]

DateUtils.DaysInMonth в Delphi 6, может есть и в Delphi 5


 
MrBeer ©   (2002-08-12 20:35) [2]

Navernoe mozhno napisatj i optimalnee...no...


function LeapYear(year: integer): boolean;
begin
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;
Function GetDaysInMonth(year,month:integer):integer;
const
DaysInMonth: array[1..12] of Integer =
(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
Result := DaysInMonth[Month];
if (Month = 2) and LeapYear(Year) then Inc(Result);
end;


 
Юрий Зотов ©   (2002-08-12 23:22) [3]

> MrBeer © (12.08.02 20:35)

Ну почему, написано вполне нормально. Просто немного раньше почти то же самое уже написано в VCL. :о)

См. MonthDays и IsLeapYear.


 
MrBeer ©   (2002-08-13 01:38) [4]

Юрий Зотов © (12.08.02 23:22)
Ya VCL dostatochno slabo znaju (mozhet na urovne D3 ;), mne bistree napisatj chem iskatj... (ne podozreval chto estj ;)


 
Hawk2   (2002-08-13 10:21) [5]

Всем спасибо!!!



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
14-71312
Игорь Шевченко
2002-07-25 11:54
2002.08.22
На землю вообще ничего ничего не летит :-)


4-71441
Maximus II
2002-06-20 14:08
2002.08.22
Копирование фрагмента *.bmp на экран.


14-71324
MIFI
2002-07-22 19:37
2002.08.22
Запуск скрипта на сервере


3-70980
SaS13
2002-07-31 11:21
2002.08.22
Остановить выполнение запроса


3-71071
BAY
2002-08-02 20:30
2002.08.22
Lock