Zeitmessung

[loirad]

Hallo liebe Delphi-PRAXISler,

ich messe die Zeit, zwischen 2 Zeiten so :arrow:

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 :idea: ?

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:

Zitat von Wolfgang Mix (Beitrag 1099757)

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 :arrow: "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)

[DeddyH]

Im Format-String von FormatDateTime dürfen nur gültige Format-Bezeichner stehen.

[Satty67]

Zitat:

Zitat von loirad (Beitrag 1099773)

start-ende

Wenn schon so, dann ende-start oder besser als Alternative QueryPerformanceCounter nutzen.

Es schwirren hier auch fertige StoppUhr Beispiele rum bzw. gibt es in neueren Delphi-Versionen evtl. sogar eine?

[himitsu]

Ich würde mal ende-start, anstatt start-ende rechnen ... dann kommen da auch keine negativen Werte raus.
(deine positiven Tage/monate/Jahre sind eigentlich durch einen negativen Bereichsüberlauf entstanden)

[edit]
Tschuldschung, hab Seite 2 übersehn :oops:

[loirad]

Auch wenn ich ende und start vertausche kommen die 30 Tage, 12 Monate und 99 Jahre raus. Wie kann ich das verändern :?::?::?:
@ DeddyH: Was meinst du damit?

[DeddyH]

Damit meine ich, dass z.B. bei dem Wort "Jahre" das "h" als Stunde interpretiert und somit geparst wird. Von daher verbieten sich bei FormatDateTime alle Zeichen oder Wörter, die mit der eigentlichen Formatierung nichts zu tun haben.

[loirad]

@ DeddyH: Ich meine ja immer das vor dem Wort ist der Wert!
@ all: Vorschläge zur Vermeidung, dass 30 Tage, 12 Monate und 99 Jahre ausgegeben werden, wenn nichtmal ein Tag vergangen ist?
Ideen wären sehr hilfreich :thumb::thumb::thumb:!!!

[himitsu]

@DeddyH: rte mal, warum er soviele " in dem Text hat ... alles was damit Maskiert ist, wird nicht als Steuerzeichen geparst ... also macht das h in Jahre keine Probleme. :angle:

Und zu den Werten bei Tag/Monat/Jahr ... welchen Wert haben denn die Variablen?

[loirad]

Ich send einfach mal den wichtigen Teil des Quelltextes:

Code:

procedure TForm1.BerechnenClick(Sender: TObject);
var start,ende:tdatetime;
begin
start:=now;
//Quelltext, dessen Zeit gemessen werden soll
ende:=now;
showmessage(SysUtils.FormatDateTime('d" Tage":" "m" Monate":" "y" Jahre":" "h" Stunden":" "n" Minuten":" "s" Sekunden ":" "z" Millisekunden"',ende-start));
end;

(immernoch 30 Tage, 12 Monate und 99 Jahre ausgegeben)
Ideen?

[bernerbaer]

Geht das nicht einfacher, wenn man direkt in milliseconds arbeitet?

Delphi-Quellcode:

var
   start, ende, dauer : Int64; 

   datumswert: TDatetime; 
 begin
   start := GetTickCount;
   // hier kommt die ganz lange Funktion
   ende := GetTickCount;
   dauer:= ende - start;
   
   
   // und jetzt noch reine Mathematik oder per Format() ins gewünschte Ausgabeformat bringen zb.:

datumswert:= dauer / MSecsPerSec /  SecsPerDay;

showmessage(FormatDateTime('d" Tage":" "m" Monate":" "y" Jahre":" "h" Stunden":" "n" Minuten":" "s" Sekunden ":" "z" Millisekunden"',datumswert));

[Wolfgang Mix]

Zeitstempel aus Post #10 schon gesichtet?

[Thom]

Zitat:

Zitat von Delphi-Hilfe

Der ganzzahlige Teil eines TDateTime-Wertes entspricht der Anzahl der Tage seit dem 30.12.1899. Der fraktionale Teil TDateTime-Wertes gibt die Tageszeit an.

Probier mal

Delphi-Quellcode:

ShowMessage(FormatDateTime('d:m:yyyy:h:n:s:z',Datumswert));
//...

Dann siehst Du, wieviel Zeit seit dem "Datumsbeginn" vergangen ist. Das ist völlig korrekt... :zwinker:

Die Delphi-Hilfe ist doch eine feine Sache, wenn man mal hineinschaut... :lol:

Laß Dir also nur die Stunden, Minuten, Sekunden und Millisekunden anzeigen und schon sieht das Ganze wesentlich besser aus:

Delphi-Quellcode:

ShowMessage(FormatDateTime('h:n:s:z',Datumswert));
//...

Damit kannst Du jetzt zwar "nur" noch bis 23 Stunden, 59 Minuten, 59 Sekunden und 999 Millisekunden messen - aber ich hoffe, daß Deine Routine nicht sooooooooo lange dauert. :stupid:

[loirad]

Es ist ja Türme von Hanoi (mit Rekursion) - das kann dauern:!:
:lol: