| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > 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; Это на всякий случай , если не понял |
| Автор: Maverick 14.5.2004, 09:53 |
| Нда..... пора в отпуск.... теперь точно.... |
| Автор: p0s0l 14.5.2004, 09:54 | ||
|
| Автор: jonik_Dk 14.5.2004, 09:58 |
| Никакой драки просто чуть чуть завелся, когда пишет , что он тоже самое написал. Бывает ... у меня у самого такое бывает. Решение : надо попить пивка с друзьями и забыть про работу. На неоторое время помагает. Ну а потом все равно надо отпуск. Но то что пора в отпуск это точно, я тоже туда хочу. Особенно на море... |
| Автор: 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 | ||
|