Как узнать сколько дней в январе например?

← →
Kat (2004-11-01 17:45) [0]

Как узнать сколько дней в январе например
Использую DayOfTheMonth(20.01.2005) Получается 20. Увы не 20 дней в январе.

← →
begin...end © (2004-11-01 17:47) [1]

> Kat (01.11.04 17:45)

А причём здесь DayOfTheMonth ?

А в январе всегда 31 день.

← →
Тестировщица © (2004-11-01 17:49) [2]

DaysInAMonth

← →
Andy BitOff © (2004-11-01 17:50) [3]

А ты чего не знаешь сколько дней? Если знаешь, так напиши например так:
Function days (Year:integer; Month:integer):Integer; begin Case month of 1: Result:=31; 2: If (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)) then Result:=29 else Result:=28; 3: Result:=31; 4: Result:=30; 5: Result:=31; 6: Result:=30; 7: Result:=31; 8: Result:=31; 9: Result:=30; 10: Result:=31; 11: Result:=30; 12: Result:=31; end; end;

← →
Kat (2004-11-01 17:52) [4]

Спасибо!

← →
Poirot © (2004-11-01 18:02) [5]

Выдержка из SysUtils:
function IsLeapYear(Year: Word): Boolean; type PDayTable = ^TDayTable; TDayTable = array[1..12] of Word; { The MonthDays array can be used to quickly find the number of days in a month: MonthDays[IsLeapYear(Y), M] } const MonthDays: array [Boolean] of TDayTable = ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31), (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));

LOL помоему:)))))))))))

> KSergey © (01.11.04 20:10) [6]

Наверное, потому, что приведенная функция записывается одной простой строчкой:
MonthDays[IsLeapYear(год), месяц]
И незачем "плодить сущности без необходимости".

Как узнать сколько дней в январе например? Найти похожие ветки