Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как правильно вывести дату? [D7, NT4]

Maxval © (2002-11-30 11:21:00)
DateTimePicker1.DateTime := d;
Edit1.Text:= DateTimetostr(d);
Почему всегда в Edit пишется дата 30.12.99
Заранее всем СПАСИБО

Anatoly Podgoretsky (2002-11-30 13:01:00) [1]
Дмитрий К.К. © (30.11.02 12:14)
Как думаешь какое ПУСТОЕ значение у Double :-)

Дмитрий К.К. (2002-11-30 12:47:00) [2]
Спасибо.

Юрий Зотов (2002-11-30 12:43:00) [3]
Пустое поле трактуется как ноль. Соответственно, получаем начальную дату для TDate - 30.12.1899. См. справку (TDate type).

Дмитрий К.К. (2002-11-30 12:14:00) [4]
Кстати, о птичках. Кто-нить мне объяснит, откуда берется ета "30.12.99", когда поле типа TDate пустое?

Юрий Зотов (2002-11-30 12:06:00) [5]
Query.ParamByName("d1").AsDateTime := DateTimePicker1.DateTime;

И снова не нужно никакого d. Нужная информация УЖЕ хранится в DateTimePicker1.DateTime, зачем дублировать ее еще раз?

maxval (2002-11-30 12:01:00) [6]
Мне еще нужно это d отправить в Query.
query.parambyname("d1").asdatetime :=d;
Вот зачем нужно d.

ЮЮ (2002-11-30 11:57:00) [7]
значение d у тебя нигде не определяется, т.е. d=0="30.12.1899"

Edit1.Text:= DateTimetostr(DateTimePicker1.DateTime);

Юрий Зотов (2002-11-30 11:57:00) [8]
> Почему всегда в Edit пишется дата 30.12.99

Что содержится в d, то и пишется. Если d не меняется - значит, все время будет писаться одно и то же.

Вообще, непонятно, зачем нужны еще какие-то d. Все можно сделать напрямую:

Edit1.Text := DateTimetoStr(DateTimePicker1.DateTime);
DateTimePicker1.DateTime := StrToDateTime(Edit1.Text);

Maxval (2002-11-30 11:46:00) [9]
А как правильно присвоить дату d.

Cr@sh (2002-11-30 11:42:00) [10]
edit1.text:=datetimetostr(now);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »