Количество дней в месяце.

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

Юрий Зотов © (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]

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

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