IncHour subtrahieren - Minutenanzeige

[user0815]

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 ?

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

[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');