Вопрос по формату ДАТЫ

← →
Nikkkkk (2003-08-15 18:21) [0]

Как определить какое максимально-допустимое календарное число в определенном месяце ???

← →
Nikkkkk (2003-08-15 18:25) [1]

P.S. желательно какая-нибудь стандартная процедура Delphi для работы с датой.
Заранее спасибо всем ответившим.

← →
Шёл мимо (2003-08-15 18:29) [2]

Месяцев ВСЕГО 12, а "лет" - 2 (обычный и високосный). ИМХО проще написать самому такую функцию (рл времени), чем искать стандартную

← →
Nikkkkk (2003-08-15 18:32) [3]

а как определить какой го високосный ???

← →
dez © (2003-08-15 18:39) [4]

а справку слабо почитать?
IsLeapYear - високосный или нет
и погляди Date/time routines. в 7 дельфях там много чего полезного есть, в том числе и макс число месяца.

← →
Шёл мимо (2003-08-15 18:39) [5]

Делишь на 4, если без остатка, то високосный. А задача еще проще. "Годов" всего два (обычный и високосный), а пробдемный месяц один (фераль). В остальных месяцах количество дней фиксировано. Успехов

← →
Шёл мимо (2003-08-15 19:00) [6]

Что-то долго молчишь. Попробуй это:
function DayOfMonth(Year, Montn: integer): byte;
begin
Case Montn of
1, 3, 5, 7, 8, 10, 12: Result:= 31;
2: Case (Year DIV 4) of
0: Result:= 29;
else Result:= 28;
end;
else Result:= 30;
end;
end;

← →
Fay (2003-08-15 19:20) [7]

Хрен там.
Год високосный если делится на 4.
НО если делится на 100, то нет.
НО если делится на 400, то да.

← →
clickmaker © (2003-08-15 19:43) [8]

IsLeapYear

← →
Романов Р.В. © (2003-08-15 21:47) [9]

DayCount := IncNonth(Decodetate(YY,MM,1)) - Decodetate(YY,MM,1);
В шестой дельфе вроде есть стандартная функция. Нажми F1

← →
Просто случайный (2003-08-15 22:04) [10]

Странно, кому-то нравятся (или мешают) мои не зарегенные НИКи. Уже не первый регят.
2 Fay (15.08.03 19:20) [7]
Пора бы и немного мыслить (если делится на 400 (100), то и делятся на 4) - посмотри определение високосного года.
2 Романов Р.В. © (15.08.03 21:47) [9]
У меня D5 и на нем я, естессно, все проверил, возможно на D6 это внутренняя функция.
УЖЕ бывший "Шёл мимо"

DayCount := IncMonth(EncodeDate(YY,MM,1)) - EncodeDate(YY,MM,1);

← →
Dionys (2003-08-16 00:32) [12]

> Просто случайный (15.08.03 22:04) [10]
> 2 Fay (15.08.03 19:20) [7]
> Пора бы и немного мыслить (если делится на 400 (100), то и
> делятся на 4) - посмотри определение високосного года.

Fay привел правильное определение високосного года...

Как много сказано...

MonthDays[IsLeapYear(год), номер_месяца]

И все.

> Просто случайный (15.08.03 22:04) [10]
> Пора бы и немного мыслить

Действительно, пора. Помыслите, например, о не високосном 1900 годе.

Вопрос по формату ДАТЫ Найти похожие ветки