Zeitmessung

[loirad]

Hallo liebe Delphi-PRAXISler,

ich messe die Zeit, zwischen 2 Zeiten so

Code:

start:=now;
Startzeit.Caption:='Startzeit: '+timetostr(start); //(Label Startzeit)
//Prozedure, von der die Zeit gemessen werden soll
ende:=now;
Endzeit.Caption:='Endzeit: '+timetostr(ende); //(Label Endzeit)
Dauer.Caption:='Dauer: '+timetostr(start-ende); //(Label Dauer)

Jetzt ist mein Problem, dass manchmal (nicht immer) einfach 1 Sekunde zu wenig bei dem Label Dauer angezeigt wird. Wo sitzt da der Fehler Hat jemand eine Idee ?

Mit freundlichen Grüßen
loirad

[Satty67]

Rundungsproblem?

TDateTime ist ja ein Double, der auch Millisekunden beinhaltet.

[loirad]

kann man die Millisekunden auch anzeigen? - wenn ja wie?

[DeddyH]

FormatDateTime

[Wolfgang Mix]

Teile die Nachkommastelle durch 3600 und zeige das dann an

[himitsu]

TimeToStr rundet ab, wobei dann natürlich schnell mal was "fehlen" kann.

Mit einer Sekunde differenz kann man aber eigentlich noch Leben.
Du könntest jetzt auch einfach mal 0.0003472 ('ne halbe Sekunde) zur ausgerechneten Differenz dazuaddieren, dann wird da seltener Abgerundet, aber dafür könnte es ab nun auch mal eine Sekunde zuviel sein.

Wenn du es wirklich genau brauchst, also die Differenz der angezeigten Werte,
dann wirst du ebenfalls jeweils die Anfangs- und Endzeit auf ganze Sekunden abrunden müssen und danach kannst du die gewünschte Differenz ausrechnen.

[Wolfgang Mix]

Der Fehler liegt dann wohl nicht im Sekunden-, sondern im Millisekundenbereich. Auch damit wird man leben können

[rollstuhlfahrer]

Zitat von Wolfgang Mix:

Teile die Nachkommastelle durch 3600 und zeige das dann an

Sollte das nicht "multipliziere" heißen?

Bernhard

[loirad]

Wenn ich mir da dann Tage, Monate und Jahre anzeige, dann werden mir dort andere Zahlen ausgegeben.
Hier ein Beispiel "30 Tage: 12 Monate: 99 Jahre: 0 Stunden: 0 Minuten: 8 Sekunden: 979 Millisekunden"

Code:

showmessage(SysUtils.FormatDateTime('d" Tage":" "m" Monate":" "y" Jahre":" "h" Stunden":" "n" Minuten":" "s" Sekunden ":" "z" Millisekunden"',start-ende));

Das Programm hat aber keinen Tag gedauert.
Woran liegt das?
Liegt das an dem "now"?
Wie kann ich das ändern?

[Wolfgang Mix]

Schaue dir mal dieses Projekt an (Anhang)