IncHour subtrahieren - Minutenanzeige

[user0815]

THX @Bummi passt!
einfach statt Time -> now nehmen

Delphi-Quellcode:

var
  StundeMinus : Integer;
  t:TDatetime;
begin
  t := now;
  StundeMinus := StrToInT(FormatDateTime('hh', t)) + 1;

  Memo1.Lines.Append(TimeToStr(t) + ' # aktuelle Uhrzeit');
  Memo1.Lines.Append(TimeToStr(IncHour(t, + 1)) + ' # + 1 Std');
  Memo1.Lines.Append(TimeToStr(IncHour(t, - StundeMinus)) + ' # - '+ IntToStr(StundeMinus) +' Std');