Probleme mit IncSecond / IncMinute oder spinn ich?

Ahoi!

Ich hab hier ein wirklich merkwürdiges Verhalten von IncSecond / IncMinute (andere noch nicht getestet).
Bei untenstehendem Code steht sowohl in Label1 als auch in Label2 die gleiche Zeit, obwohl ja eigentlich die Zeit in Label2 um 50 Sekunden verschoben sein sollte, oder nicht?

Mit IncMinute ists das gleiche, es ist ihm auch egal, was ich für einen Wert da nehme, immer gleiche Zeit ... nix geändert, nix verschoben ... Wenn ich allerdings z.B. BD := BD + 0.50 mache, ist es geändert ...

Ist das bei euch auch so oder liegt das nur an mir?!

zusammenfalten · markieren

Delphi-Quellcode:

			...

implementation

uses

  DateUtils;

{$R *.dfm}

{ ************************************************************ }

procedure SpinnIchOderWas;

{ ************************************************************ }

var

  BD: TDateTime;

begin

  BD := Now;

  Form1.Label1.Caption := DateTimeToStr (BD);

  IncSecond (BD, 50);

  Form1.Label2.Caption := DateTimeToStr (BD);

end;

{ ************************************************************ }

procedure TForm1.Button1Click(Sender: TObject);

{ ************************************************************ }

begin

  SpinnIchOderWas;

end;

end.

Grüße,
Mario

Probleme mit IncSecond / IncMinute oder spinn ich?

Probleme mit IncSecond / IncMinute oder spinn ich?

Forumregeln