20.08.2009, 12:39
|
Модератор
|
|
Регистрация: 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).
|