Zeitmessung

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

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