Показать сообщение отдельно
  #2  
Старый 20.08.2009, 12:39
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,029
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну так и складывай напрямую...

Код:
var
  D1, D2, D : TDateTime;
begin
  D1 := EncodeDateTime(2009,08,20,03,05,0,0);
  D2 := EncodeDateTime(0,0,0,3,5,0,0);
  D := D1 + D2;

или пользуйся функциями IncHour и IncMinute (модуль DateUtils).
Ответить с цитированием