Как правильно вывести дату?

← →
Maxval © (2002-11-30 11:21) [0]

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

← →
Cr@sh © (2002-11-30 11:42) [1]

edit1.text:=datetimetostr(now);

← →
Maxval © (2002-11-30 11:46) [2]

А как правильно присвоить дату d.

← →
ЮЮ © (2002-11-30 11:57) [3]

значение d у тебя нигде не определяется, т.е. d=0="30.12.1899"

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

← →
Юрий Зотов © (2002-11-30 11:57) [4]

> Почему всегда в Edit пишется дата 30.12.99

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

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

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

← →
maxval © (2002-11-30 12:01) [5]

Мне еще нужно это d отправить в Query.
query.parambyname("d1").asdatetime :=d;
Вот зачем нужно d.

← →
Юрий Зотов © (2002-11-30 12:06) [6]

Query.ParamByName("d1").AsDateTime := DateTimePicker1.DateTime;

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

← →
Дмитрий К.К. © (2002-11-30 12:14) [7]

Кстати, о птичках. Кто-нить мне объяснит, откуда берется ета "30.12.99", когда поле типа TDate пустое?

Пустое поле трактуется как ноль. Соответственно, получаем начальную дату для TDate - 30.12.1899. См. справку (TDate type).

Спасибо.

Как правильно вывести дату? Найти похожие ветки