Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 пустое?


 
Юрий Зотов   (2002-11-30 12:43) [8]

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


 
Дмитрий К.К.   (2002-11-30 12:47) [9]

Спасибо.


 
Anatoly Podgoretsky   (2002-11-30 13:01) [10]

Дмитрий К.К. © (30.11.02 12:14)
Как думаешь какое ПУСТОЕ значение у Double :-)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
1-28008
Александр
2002-11-24 15:47
2002.12.09
Отслеживание кликов по пунктам ТCheckListBox?


1-27964
kex86
2002-11-27 13:55
2002.12.09
KeyDown


3-27877
Oleon
2002-11-20 10:53
2002.12.09
Шаблоны платежных документов


7-28311
NOE
2002-10-04 18:09
2002.12.09
Service


3-27857
voland34
2002-11-20 23:48
2002.12.09
трабла с indexfield for ClientDataSet





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский