| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать первую и последнюю дату месяца [D7]
kolos_rus © (2004-12-15 16:20:00)имеем
var
d,d_first,d_last:tdatetime;
begin
d:=date; {текущая дата}
d_first:= ?
d_last:= ?
end;
kolos_rus (2004-12-15 17:34:00) [1]Спасибо, уже сам разобрался.
Verg (2004-12-15 17:26:00) [2]
> kolos_rus © (15.12.04 17:06) [2]
> Попробовал, возникла ошибка.
> Стал разбираться, оказалось, что в
> EncodeDate(1, MonthOf(date), YearOf(date)); не нравится
> параметр YearOf(date).
Читай справку по ф-ции EncodeDate.
kolos_rus (2004-12-15 17:06:00) [3]Попробовал, возникла ошибка.
Стал разбираться, оказалось, что в
EncodeDate(1, MonthOf(date), YearOf(date)); не нравится параметр YearOf(date).
Y:=YearOf(date); проходит нормально и Y имеет значение 2004.
Может ли иметь значение, что на машине установлен формат даты dd.mm.yy ? И если дело в этом, то как это обойти.
Семен Сорокин (2004-12-15 16:25:00) [4]
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;
| |
