Главная страница
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
1-96246
Karburator
2003-09-17 15:52
2003.09.29
Файл


6-96323
Е-Моё имя
2003-07-29 13:20
2003.09.29
настройка показа картинок для TWebBrowser


8-96305
zumozzz
2003-06-04 07:22
2003.09.29
Язык


1-96280
Russko
2003-09-17 09:21
2003.09.29
InstallShield Express for Delphi


3-96066
vopros
2003-09-10 12:18
2003.09.29
У DbgridEh Можно ширину колонки менять