Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > TDate + Ttime = TDateTime


Автор: Maverick 14.5.2004, 08:49
Привет....
Есть выражениz 01.01.04 и 11:10:00..... как получить полный TDateTime из них? Вопрос глуповатый, но ниче в голову не лезет.....
Неужели перегнать в строки, потом сложить, потом вернуть? Как-то некрасиво......

Автор: jonik_Dk 14.5.2004, 09:09
Боже мой как ребенок


var dt : TDate;
vr: TTime;
dat: TdateTime;
begin
dt:= StrToDAte('15.05.2004');
vr:= StrToTime('08:00');
dat:= vr+dt;
ShowMessage(DateTimeToStr(dat));

Автор: Maverick 14.5.2004, 09:40
Для шибко умных поясняю.... способ мне известен - я упомянул его в вопросе.... его и использовал в программе... но я не верю, что подобное решение оптимальное.....

h := TimeToStr(TB_PAYMENTEND_TIME_WORK.Value);
d := DateToStr(TB_PAYMENTEND_DATE_WORK.Value);
vrs_end := d+' '+h; //строка дата + время начала работ
vr_end := StrToDateTime(vrs_end);

Автор: jonik_Dk 14.5.2004, 09:48
Шибко умный отвечает:::

Код посмотри внимательно , что я написал, при чем тут строки складываешь переменные типа TDATE + переменная типа TTIME результат присваиваешь переменной типа TDATETIME

var dt : TDate;
vr: TTime;
dat: TdateTime;
begin
dt:= StrToDAte('15.05.2004');
vr:= StrToTime('08:00');
dat:= vr+dt; Посмотри какого типа переменные
ShowMessage(DateTimeToStr(dat));

Какие строки , где ты их увидел у меня??? Я просто присваивал значения переменным типа TDATE и TTIME через строки


Будь внимательнее!!!

Добавлено @ 09:51
Попробуй так :

var DatTime: TDATETIME;
begin

DatTime := B_PAYMENTEND_TIME_WORK.Value + TB_PAYMENTEND_DATE_WORK.Value;

end;

Это на всякий случай , если не понял biggrin.gif

Автор: Maverick 14.5.2004, 09:53
Нда..... пора в отпуск.... теперь точно.... withstupid.gif

Автор: p0s0l 14.5.2004, 09:54
М
 
Друзья, давайте жить дружно!
Серьёзно, в последнее время часто встречаются какие-то резкости и колкости в ответах. Можно было и без них обойтись.
Maverick, будь внимательнее в следующий раз, не делай поспешных выводов, не разобравшись...

Автор: jonik_Dk 14.5.2004, 09:58

Никакой драки просто чуть чуть завелся, когда пишет , что он тоже самое написал.

Бывает ... у меня у самого такое бывает. Решение : надо попить пивка с друзьями и забыть про работу. На неоторое время помагает. Ну а потом все равно надо отпуск.

Но то что пора в отпуск это точно, я тоже туда хочу. Особенно на море...


cool.gif

Автор: Akella 14.5.2004, 11:43
To Maverick
Почитай, что на картинке "I`m WITH stupid"
Нельзя же так к товарищам.

Автор: p0s0l 14.5.2004, 11:54
Всё, хватит. Тут было всего 2-3 поста относящихся к теме... Остальное - оффтоп. Тема закрыта.

Автор: Medved 17.5.2004, 22:41
Код

var
 MyDateTime: TDateTime;
begin
  MyDateTime := '01.01.2005' + ' ' + '23:00:00';
end;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)