Консультация № 31865
20.12.2005, 11:22
0.00 руб.
0 9 8
Господа експерти поскажите пожайлуста как из DateTimePicker перенести дату допустим в Edit в формате dd/MM/yyyy.
Заранее спасибо

Обсуждение

Неизвестный
20.12.2005, 11:28
общий
это ответ
Здравствуйте, Unnamed!
Например так - см. приложение

Приложение:
procedure TForm1.Button1Click(Sender: TObject);begin DateSeparator:=‘/‘; ShortDateFormat:=‘dd/mm/yyyy‘; Edit1.Text:=DateToStr(DateTimePicker1.Date);end;
Неизвестный
20.12.2005, 11:39
общий
это ответ
Здравствуйте, Unnamed!
DateTimeToStr из модуля SysUtils. Там еще много чего есть

Edit1.Text:=DateTimeToStr(DateTimePicker1.Time)
Неизвестный
20.12.2005, 11:44
общий
это ответ
Здравствуйте, Unnamed!
Edit1.Text := DateToStr(DateTimePicjer1.Date);

или

Edit1.Text := FormatDateTime("dd/mm/yyyy", DateTimePicker1.Date);
Неизвестный
20.12.2005, 11:45
общий
это ответ
Здравствуйте, Unnamed!
procedure TForm1.Button1Click(Sender: TObject);
var OldSeparator:Char;
begin
OldSeparator:=DateSeparator;
DateSeparator:=‘/‘;
Edit1.Text:=FormatDateTime(‘dd/mm/yyyy‘,DateTimePicker1.Date);
DateSeparator:=OldSeparator;
end;
давно
Мастер-Эксперт
425
4118
20.12.2005, 11:48
общий
это ответ
Здравствуйте, Unnamed!
У этого компонента есть свойчтво Date, содержащую одну дату, а есть свойство DateTime, содержащую соответствующий тип. Формат задается в свойстве DateFormat, однако я не рекомендую задаваеть его тличным от системного, только путаницу внесете.
Поскольку Edit текстовое поле, то дату надо перевести в строку DateToStr(Date).
Об авторе:
Я только в одном глубоко убеждён - не надо иметь убеждений! :)
Неизвестный
20.12.2005, 12:21
общий
Вариант DateToStr не подходит потому что он передает дату в формате dd.MM.yyyy,а вариант Zubex передает в том формате что я и хотел dd/MM/yyyy, но все же спасибо всем за все варианты
Неизвестный
20.12.2005, 17:04
общий
это ответ
Здравствуйте, Unnamed!
Для этого у TDateTimePicker есть свойство DateTime, в котором хранятся текущие значения даты и времени. Прочитать дату (отдельно) можно так:
<font color=#0066CC>Edit1.Text:=DateToStr(DateTimePicker1.DateTime);</font>
Время - вот так:
<font color=#0066CC>Edit1.Text:=TimeToStr(DateTimePicker1.DateTime);</font>
А вот так всё вместе:
<font color=#0066CC>Edit1.Text:=DateTimeToStr(DateTimePicker1.DateTime);</font>
Неизвестный
20.12.2005, 21:07
общий
это ответ
Здравствуйте, Unnamed!

Существует функция DateTimeToStr() она переводит DateTime в строку формата
dd.mm.yyyy hh.mm.ss.

Если вы хотите возвратить дату в собственном формате то используйте

FormatDateTime(Format,DateTime);
Где Format это строка с требуемым вам видом вывода. например ‘mm/yy‘ и др.

Неизвестный
20.12.2005, 22:05
общий
это ответ
Здравствуйте, Unnamed!
Почему бы Вам вместо Edit‘а не использовать MaskEdit.
Форма ответа