Zeitmessung

[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));