Дата на первое число месяца

← →
6ruse (2010-08-09 11:43) [0]

Доброго времени суток! Уважаемые подскажите пжл как можно устанавить программно в DateTimePicker дату что бы всегда было первое число текущего месяца?

← →
Anatoly Podgoretsky © (2010-08-09 12:12) [1]

DateTime property

← →
Дмитрий С © (2010-08-09 12:25) [2]

В событии OnChange

← →
ixen © (2010-08-09 13:22) [3]

DateTimePicker.date:=StartOfTheMonth(date);

← →
stas © (2010-08-09 15:23) [4]

uses dateutils
....
+
ixen © (09.08.10 13:22) [3]

← →
Ega23 © (2010-08-09 15:24) [5]

DecodeDate + EncodeDate + F1

← →
6ruse (2010-08-09 15:43) [6]

> DateTimePicker.date:=StartOfTheMonth(date);

Это Вы где такое откапали??? у меня не работает, говорит не знаю я такого!

← →
Rouse_ © (2010-08-09 15:48) [7]

> 6ruse (09.08.10 15:43) [6]
>
>
> > DateTimePicker.date:=StartOfTheMonth(date);
>
> Это Вы где такое откапали??? у меня не работает, говорит
> не знаю я такого!

uses DateUtils

← →
Anatoly Podgoretsky © (2010-08-09 15:57) [8]

> 6ruse (09.08.2010 15:43:06) [6]

А у тебя видимо не указан нужный модуль в uses и конечно нет справки?

← →
Ega23 © (2010-08-09 15:59) [9]

> DateTimePicker.date:=StartOfTheMonth(date);

Не сработает.

> 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.

ааа.... Там StartOfTheMonth
Ну да, так сработает. Только один фиг это
function StartOfTheMonth(const AValue: TDateTime): TDateTime; var LYear, LMonth, LDay: Word; begin DecodeDate(AValue, LYear, LMonth, LDay); Result := EncodeDate(LYear, LMonth, 1); end;

:)

Дата на первое число месяца Найти похожие ветки