Zeitmessung

[DeddyH]

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

[Satty67]

Zitat von loirad:

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

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

[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.

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?