Delphi-Quellcode:
uses DateUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
var
StundeMinus : Integer;
begin
StundeMinus := StrToInT(FormatDateTime('hh', now)) + 1;
Memo1.Lines.Append(TimeToStr(Time) + ' # aktuelle Uhrzeit');
Memo1.Lines.Append(TimeToStr(IncHour(Time, + 1)) + ' # + 1 Std');
Memo1.Lines.Append(TimeToStr(IncHour(Time, - StundeMinus)) + ' # - '+ IntToStr(StundeMinus) +' Std');
end;
Warum ändert sich die Minutenanzeige wenn ich > 1 Stunde abziehe als der Tag bereits hat ?