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;