Probleme mit IncSecond / IncMinute oder spinn ich?

[Nuclear-Ping]

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? :gruebel: 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?! :stupid:

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

[sakura]

IncSecond ist eine Funktion, keine Prozedur ;)

Delphi-Quellcode:

  BD := IncSecond (BD, 50);

...:cat:...

[Nuclear-Ping]

Yo, danke, ich Trottel, habs auch grad gerallt :stupid:

LOL ... Man muss nur blind genug sein :wall:

Grüße,
Mario