Es Fácil, en un tipo de dato TDateTime, la parte entera pertenece al Date y la parte decimal pertenece al Time, con este juego de constantes, podrías hacer casi todos los cálculos necesario
Código:
Const
DAY = 1.0;
HOUR = DAY / 24.0;
MINUTE = HOUR / 60.0;
SECOND = MINUTE / 60.0;
MILLISECOND = SECOND / 1000.0;
Por ejemplo, agregar 5 segundos a una hora
Código:
var MiHora : TTime;
begin
MiHora := MiHora + (5 * SECOND);
end;
Restarle 1 hora
Código:
var MiHora : TTime;
begin
MiHora := MiHora - HOUR;
end;
Obviamente te conviene crear tu propio juego de funciones para manejar más claramente estos datos. A partir de Delphi 6 hay una nueva unit con funciones para todos estos cálculos.
Saludos!