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

← →
MakedoneZ © (2005-01-29 11:05) [0]

1)Есть ли процедура которая возвращает число дней в месяце?

2)Как очистить TImage одной процедурой?

← →
Antonn © (2005-01-29 11:19) [1]

1 EndOfAMonth( YearOf(год) , месяц)

ЗЫ Что-то часто стали возникать вопросы про даты...

← →
VMcL © (2005-01-29 11:24) [2]

>>MakedoneZ © (29.01.05 11:05)

1. SysUtils.pas:

{ 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));

2.

Image1.Picture := nil;

← →
TUser © (2005-01-29 13:20) [3]

Я бы искал число дней в месяце, как
(MonthNumber mod 6) mod 2 + прописывание особых условий для февраля.

← →
SergP © (2005-01-29 13:32) [4]

function LastDayOfMonth(const month: byte; const year:word): byte;
begin
if month=2
then if ((year mod 4 =0) and (year mod 100 >0)) or (year mod 400 = 0)
then Result:=29
else Result:=28
else result:=Month shr 3 xor Month and 1 or 30;
end;

← →
TUser © (2005-01-29 13:47) [5]

> SergP © (29.01.05 13:32) [4]
Например, чясло дней в 2005-м месяце 2005 года =

← →
TUser © (2005-01-29 13:48) [6]

Опс. Хорошо, что byte, - значит колинчество месяцев в коду все-таки ограничено. В 255-м месяце 2005 года будет 30 дней.

← →
TUser © (2005-01-29 13:51) [7]

А всего в 2005 году 7806 дней. Так что второй срок Путина еще надолго.

← →
aus (2005-01-29 13:57) [8]

uses DateUtils; ..................... ShowMessage(IntToStr(DaysInMonth(Date))); ....................

← →
aus (2005-01-29 13:57) [9]

или в D6 нет этой ф-ции?

> [5] TUser © (29.01.05 13:47)
>
> > SergP © (29.01.05 13:32) [4]
> Например, чясло дней в 2005-м месяце 2005 года =

Функция расчитана на использование в мирах где 12 месяцев в году, проверок я не делал, так как это лишнее. :-))

Спасибо всем!

uses DateUtils, - добавить
Edit1.Text:= inttostr(DaysInAMonth(2004,2));

А так будет на много просче и короче

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