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

Боже мой как ребенок


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

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

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

Шибко умный отвечает:::

Код посмотри внимательно , что я написал, при чем тут строки складываешь переменные типа 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;

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

Нда..... пора в отпуск.... теперь точно....

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

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

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

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

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

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

Код

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