| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Дата на первое число месяца
6ruse © (2010-08-09 11:43:00)Доброго времени суток! Уважаемые подскажите пжл как можно устанавить программно в DateTimePicker дату что бы всегда было первое число текущего месяца?
Anatoly Podgoretsky (2010-08-09 16:13:00) [1]
> Ega23 © (09.08.10 16:10) [11]
С этим методом да, но предложен то StartOf TheMonth
Ega23 (2010-08-09 16:11:00) [2]ааа.... Там
StartOf TheMonth
Ну да, так сработает. Только один фиг это
function StartOfTheMonth(const AValue: TDateTime): TDateTime;
var
LYear, LMonth, LDay: Word;
begin
DecodeDate(AValue, LYear, LMonth, LDay);
Result := EncodeDate(LYear, LMonth, 1);
end;
:)
Ega23 (2010-08-09 16:10:00) [3]
> Anatoly Podgoretsky © (09.08.10 16:07) [10]
>
> Пробовал?
function StartOfAMonth(const AYear, AMonth: Word): TDateTime;
begin
Result := EncodeDate(AYear, AMonth, 1);
end;
D2007.
Не знаю, как в более старых версиях, подозреваю, что также.
Именно потому и написалDecodeDate + EncodeDate + F1.
Anatoly Podgoretsky (2010-08-09 16:07:00) [4]
> Ega23 © (09.08.10 15:59) [9]
Пробовал?
Ega23 (2010-08-09 15:59:00) [5]
> DateTimePicker.date:=StartOfTheMonth(date);
Не сработает.
Anatoly Podgoretsky (2010-08-09 15:57:00) [6]> 6ruse (09.08.2010 15:43:06) [6]
А у тебя видимо не указан нужный модуль в uses и конечно нет справки?
Rouse_ (2010-08-09 15:48:00) [7]
> 6ruse (09.08.10 15:43) [6]
>
>
> > DateTimePicker.date:=StartOfTheMonth(date);
>
> Это Вы где такое откапали??? у меня не работает, говорит
> не знаю я такого!
uses DateUtils
6ruse (2010-08-09 15:43:00) [8]
> DateTimePicker.date:=StartOfTheMonth(date);
Это Вы где такое откапали??? у меня не работает, говорит не знаю я такого!
Ega23 (2010-08-09 15:24:00) [9]DecodeDate + EncodeDate + F1
stas (2010-08-09 15:23:00) [10]uses dateutils
....
+
ixen © (09.08.10 13:22) [3]
ixen (2010-08-09 13:22:00) [11]
DateTimePicker.date:=StartOfTheMonth(date);
Дмитрий С (2010-08-09 12:25:00) [12]В событии OnChange
Anatoly Podgoretsky (2010-08-09 12:12:00) [13]DateTime property
| |
