Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.29;
Скачать: CL | DM;

Вниз

Как объединить 2шт DateTimePicker, один показ. дату, второй время   Найти похожие ветки 

 
Layner ©   (2003-09-09 11:01) [0]

И в сумме получить переменную TDateTime?


 
ZEE ©   (2003-09-09 11:05) [1]

var dt:TDateTime;
...
dt:=DateTimePicker1.Date+DateTimePicker2.Time;


 
Layner ©   (2003-09-09 11:12) [2]

Спасибо!


 
stone ©   (2003-09-09 11:20) [3]

var dt:TDateTime;
...
dt:=DateTimePicker1.DateTime;

так буде проще :))


 
Layner ©   (2003-09-09 11:26) [4]

ZEE © (09.09.03 11:05)
Что то у меня не то показывает :(
stone © (09.09.03 11:20)
А как показать на DateTimePicker1 и дату и время?


 
Layner ©   (2003-09-09 11:29) [5]

dt:=DateTimePicker1.Date+DateTimePicker2.Time;
Сегодняшний год показывает как 2107...


 
ZEE ©   (2003-09-09 11:33) [6]

Исправляюсь
var dt:TDateTime;
...
DateTimePicker1.Time:=DateTimePicker2.Time;
dt:=DateTimePicker1.DateTime;


 
Layner ©   (2003-09-09 11:33) [7]

так работает..
s:=DateToStr(DateTimePicker1.Date)+" "+TimeToStr(DateTimePicker2.Time);


 
ZEE ©   (2003-09-09 11:39) [8]


> Layner © (09.09.03 11:33) [7]
> так работает..
> s:=DateToStr(DateTimePicker1.Date)+" "+TimeToStr(DateTimePicker2.Time);

А как же на счет
"И в сумме получить переменную TDateTime" ???


 
jack128 ©   (2003-09-09 11:49) [9]

Result := Int(DatePicker.Date) + Frac(TimePicker.Time);


 
Layner ©   (2003-09-09 11:49) [10]

ну ясно же, что не сумма двух дат, а день + время, зачем же 2107 год :) Но, тем не менее, извиняюсь, если что спросил не так.



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

Текущий архив: 2003.09.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
3-96156
rosl
2003-09-08 03:40
2003.09.29
сотрировка


4-96498
Yuri Btr
2003-07-28 21:10
2003.09.29
Смена принтера по умолчанию


3-96079
snake7
2003-09-08 22:05
2003.09.29
Вопрос о Quick Report


1-96186
Vinter
2003-09-16 09:46
2003.09.29
компоненты для кодирования и раскодирования


3-96085
DECL
2003-09-09 20:34
2003.09.29
Подключение БД не через ODBC