Resta de horas

[dec]

Hola,

A ver qué tal esto:

Código Delphi [-]
 uses
   DateUtils;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   hora: TTime;
 begin
   // 2 más de la hora actual
   hora := IncHour(now, 2);
   // 2 menos de la hora actual
   hora := IncHour(hora, -2);
   // Mostramos la hora actual
   ShowMessage(TimeToStr(hora));
 end;

[jachguate]

Que tal esto otro:

Código Delphi [-]
Var
  Horas : Double;
Begin
  Horas := dtpHoraFinal.DateTime - dtpHoraInicio.DateTime;
  ShowMessage(Format('Las horas transcurridas (en decimal) son: %5.3d', [Horas * 24]));
  //mostrará 3.5 horas para 3:30, 10.3333 para 10:20, etc.

Hasta luego.

[[Crandel]]

El problema te ocurre porque debes estar restando la propiedad Time cuando en realidad debes utilizar la porpiedad DateTime.

Porque en tu caso las 08:00 son del día siguiente, y si no incluis la parte del día no se va a reflejar.

Suerte