IncHour subtrahieren - Minutenanzeige

[Bummi]

teste mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

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

  Memo1.Lines.Append(FormatDateTime('hh:nn:ss zzz',Time) + ' # aktuelle Uhrzeit');
  Memo1.Lines.Append(FormatDateTime('hh:nn:ss zzz',IncHour(t, + 1)) + ' # + 1 Std');
  Memo1.Lines.Append(FormatDateTime('hh:nn:ss zzz',IncHour(t, - StundeMinus)) + ' # - '+ IntToStr(StundeMinus) +' Std');
end;