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?!
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