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;
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;