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

← →
Kostja (2003-06-16 00:04) [0]

Привет мастерам Delphi,
моя проблема выглядит так:
Надо узнать кольичество дней любимого месяца в любимом году!
Есть ли в Delphi функция типо этой:
function функция(Month: Byte; Year: Word): Byte;

← →
DrPass © (2003-06-16 01:27) [1]

Сильно подозреваю, что эта функция будет выглядеть так:
function (Month: Byte; Year: Word): Byte;
const
x:array[1..12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31);
begin
result:=x[month];
if (month=2) and ((year mod 400 = 0) or ((year mod 4=0)and(year mod 100<>0)) then result:=29;
end
создать эту функцию стоит ровно столько времени, сколько нужно, чтобы ее набрать. Стыдитесь, молодой человек.

← →
Song © (2003-06-16 08:57) [2]

DaysInMonth()
DaysInAMonth()
DaysOfMonth()
DaysOfTheMonth()

← →
Kostja (2003-06-16 18:16) [3]

Я стыдился когда писал этот вопрос!

← →
kull © (2003-06-16 19:51) [4]

> DrPass © (16.06.03 01:27)

А я не вижу тут ничего стыдного. Надо, по возможности, использовать готовые функции, а не изобретать велосипед.

← →
Anatoly Podgoretsky © (2003-06-16 20:55) [5]

Для любимого месяца и года достаточно прописать его константой и даже с февралем в этом случае нет проблем, число заранее известно.

>Kull

> А я не вижу тут ничего стыдного. Надо, по возможности, использовать
> готовые функции, а не изобретать велосипед

А какая разница? Я, например, не знал о существовании этих функций, потому что мне они были не нужны. Но если бы понадобились, посмотрел бы в хелп и нашел. А то, что человек не мог ни написать, ни найти - стыдно.

← →
dtrn (2003-06-19 00:04) [7]

function MaxDayOfMonth(Year,Month:word):integer;
begin
Result:=PDayTable(
@MonthDays[IsLeapYear(Year)])^[Month];
end;

function MaxDayOfMonth(Date:TDateTime):integer;Overload;
var
Year,Month,Day:Word;
begin
DecodeDate(Date,Year,Month,Day);
Result:=MaxDayOfMonth(Year,Month);
end;

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