Текущий архив: 2005.01.02;
Скачать: CL | DM;
Вниз
Как узнать первую и последнюю дату месяца Найти похожие ветки
← →
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.
← →
kolos_rus © (2004-12-15 17:34) [4]Спасибо, уже сам разобрался.
Страницы: 1 вся ветка
Текущий архив: 2005.01.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.043 c
