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

← →
kolos_rus © (2004-12-15 16:20) [0]

имеем
var
d,d_first,d_last:tdatetime;
begin
d:=date; {текущая дата}
d_first:= ?
d_last:= ?
end;

← →
Семен Сорокин © (2004-12-15 16:25) [1]

uses DateUtils; var d,d_first,d_last:tdatetime; begin d:=date; {текущая дата} d_first:= EncodeDate(1, MonthOf(date), YearOf(date)); d_last:= EncodeDate(DaysInMonth, MonthOf(date), YearOf(date)); end;

← →
kolos_rus © (2004-12-15 17:06) [2]

Попробовал, возникла ошибка.
Стал разбираться, оказалось, что в
EncodeDate(1, MonthOf(date), YearOf(date)); не нравится параметр YearOf(date).
Y:=YearOf(date); проходит нормально и Y имеет значение 2004.
Может ли иметь значение, что на машине установлен формат даты dd.mm.yy ? И если дело в этом, то как это обойти.

← →
Verg © (2004-12-15 17:26) [3]

> kolos_rus © (15.12.04 17:06) [2]
> Попробовал, возникла ошибка.
> Стал разбираться, оказалось, что в
> EncodeDate(1, MonthOf(date), YearOf(date)); не нравится
> параметр YearOf(date).

Читай справку по ф-ции EncodeDate.

Спасибо, уже сам разобрался.

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