Zeitangaben subtrahieren oder wie mache ich eine Stoppuhr!?

[fsc]

Hallo!

Mein Programm gibt seine Ergebnisse in ein Memofeld aus. Ich hole mir zu Beginn des Hauptprozesses die Zeit mit "TimetoStr(Time)", speichere diese und will hinterher die Endzeit, die genau das gleiche macht wie die anfangszeit, von einander abziehen. Das geht aber nicht. Ich will damit keine Stoppuhr im eigentlichen Sinne machen, sondern halt einen Dauerwert mit Sekundengenauigkeit haben.
Wie mache ich das? Hat Delpi schon etwas ähnliches?

fsc

[Union]

Das machst Du am besten mit TDateTime:

Delphi-Quellcode:

var
  dtStart : TDateTime;
  ...
  // Programmbegin
  dtStart := now;
  ...
  // Programmende
  LaufZeit := MilliSecondsBetween(now, dtStart);

[ManuMF]

Die Unit DateUtils bietet Funktionen wie MinutesBetween, SecondsBetween, ...
Das dürfte sein, wonach du suchst.
Aber zuerst die größte Einheit berechnen, und dann mit Hilfe von IncMinute etc. die nächstkleinere Berechnen.

Beispiel:

Delphi-Quellcode:

// Alle Variablen = Integer

Stunden := HoursBetween(Anfang, Ende);
Minuten := MinutesBetween(IncMinute(Anfang, Stunden * 60), Ende);
Sekunden := SecondsBetween(IncSecond(Anfang, Minuten * 60), Ende);

// oder einfach NUR
Sekunden := SecondsBetween(Anfang, Ende);

Mit SecondSpan bekommst du Kommazahlen, mit SecondsBetween nur volle Sekunden als Ganzzahlen.

[edit]in richtige Funktion geändert[/edit]

[fsc]

Klappt! Danke euch beiden

fsc

[Union]

[quote="ManuMF"]

Delphi-Quellcode:

HoursBetween(Anfang, Ende);
MinutesBetween(IncMinute(Anfang, Stunden * 60), Ende);
SecondsBetween(IncSecond(Anfang, Minuten * 60), Ende);
SecondsBetween(Anfang, Ende);

Achtung, die Syntax der ...Between Funktionen lautet immer xxxBetween(ANow, AThen), der größere der Zeitwerte also als ersten Parameter!