Sekunden und Millisekunden anzeigen

[TheMiller]

Hallo,

ich versuche die zwischen zwei Zeitpunkten vergangene Zeit in Sekunden und Millisekunden anzuzeigen. Ich habe auch schon eine Funktion, aber die Zeit läuft irgendwie zu schnell...

Delphi-Quellcode:

var
  h, m, s: Word;
  Diff: Integer;
begin
  TimeNow:=GetTickCount;
  Diff:=TimeNow - StartTime;
  m:=Diff div 60;
  s:=Diff mod 60;
  Form1.Caption:=Format('%.2d:%.2d', [m, s]);

Wie bekomme ich da auchnoch die ms dazu?

Danke

[omata]

Schau dir mal DecodeDateTime an.

[TheMiller]

Meine Hilfe geht nicht.. Hab Windows Vista und Delphi 7 und da geht die Hilfe nicht mehr??

[fLaSh11]

Also ich finde den QueryPerformanceCounter am besten.

Das hier
QueryPerformanceCounter
QueryPerformanceFrequency

denötigst du, um berechnungen anzustellen.

Der hat mich nie im Stich gelassen :firejump:

//Edit: Natürlich das für dich interessante ist, dass das Ergebnis in µSek herauskommt. Also nur noch durch 1000 für mSek bzw. durch 1000² für Sek teilen.

[Blackheart]

Zitat:

Zitat von DJ-SPM

Meine Hilfe geht nicht.. Hab Windows Vista und Delphi 7 und da geht die Hilfe nicht mehr??

Schau hier

[grenzgaenger]

weshalb soll das nicht gehen?

Delphi-Quellcode:

var
 anfang, differenz: cardinal;  
begin
 anfang := gettickcount();   
 //was dazwischen
 differenz := GetTickDiff(Anfang, GetTickCount()); //differnz in millisekunden

was mir aufgefallen ist, ist

a) deine variable StartTime nicht initialisiert
b) arbeitest du mit zu kleinen variablen
c) wandelst du deine werte falsch um.

denk dran, gettickcount gibt die anzahl der verstrichenen millisekunden zurück ... <HTH>

[TheMiller]

Hey!

Die Variable ist initialisiert, aber nicht in dieser Prozedur, sondern in einem Button.OnClick.

Würde gerne GetTickDiff aufrufen, aber es wird bei mir nicht gefunden. In welcher Unit ist die? Achso: Und meine Hilfe funzt wieder! Danke! Doch da steht weder zu GetTickCount noch zu GetTickDiff was drin...

Danke

[grenzgaenger]

GetTickDiff() //IdGlobal
GetTickCount()//Windows

[TheMiller]

Ich habe nun folgenden Code:

Delphi-Quellcode:

Diff:=GetTickDiff(StartTime, GetTickCount());
s:=Diff div 60; //für Sekunden
Form1.Caption:=Format('%.2d', [s]);

Jetzt sehe ich ja in der Caption der Form die "Sekunden". Doch die laufen viel zu schnell und stimmen nicht mit "realen" Sekunden überein! Wieso nicht? Was mache ich falsch?

StartTime ist übrigens dann initialisiert, wenn der Timer gestartet wird und bekommt den aktuellen GetTickCount-Wert.

danke.

[grenzgaenger]

Zitat:

Zitat von DJ-SPM

Ich habe nun folgenden Code:

Delphi-Quellcode:

Diff:=GetTickDiff(StartTime, GetTickCount());
s:=Diff div 60; //für Sekunden
Form1.Caption:=Format('%.2d', [s]);

Jetzt sehe ich ja in der Caption der Form die "Sekunden". Doch die laufen viel zu schnell und stimmen nicht mit "realen" Sekunden überein! Wieso nicht? Was mache ich falsch?

StartTime ist übrigens dann initialisiert, wenn der Timer gestartet wird und bekommt den aktuellen GetTickCount-Wert.

danke.

Delphi-Quellcode:

Diff:=GetTickDiff(StartTime, GetTickCount());
s:=Diff div 1000; //für Sekunden  <<< so wird schon eher 'n schuh draus
Form1.Caption:=Format('%.2d', [s]);

gettickcount liefert die zeit in millisekunden = 1/1000 sekunde, keine 60'tel. daher musst du hier mit 1000 dividieren.

[TheMiller]

Das würde natürlich einiges Erklären...

Ich probiere das dann mal aus...

Danke und bis dann!

[TheMiller]

So, das funzt jetzt soweit, um die Millisekunden auszurechnen, habe ich noch eine Zeile hinzugefügt und scheint auch richtig zu sein. Schaut bitte nochmal.

Aber wenn ich jetzt das Format ausgebe, dann zeigt er mir 3 Stellen an, wieso??

Delphi-Quellcode:

var
  s, ms: Word;
  Diff: Integer;
begin
  Diff:=GetTickDiff(BPMStartTime, GetTickCount());
  s:=Diff div 1000;
  ms:=Diff mod 1000;
  Form1.Caption:=Format('%.2d:%.2d', [s, ms]);

Danke für eure Hilfe

[mashutu]

Zitat:

Zitat von DJ-SPM

Aber wenn ich jetzt das Format ausgebe, dann zeigt er mir 3 Stellen an, wieso??

vielleicht, weil Du eine dreistellige Zahl hast?

[Matze]

Zitat:

Zitat von DJ-SPM

Aber wenn ich jetzt das Format ausgebe, dann zeigt er mir 3 Stellen an, wieso??

Mit der Format-Funktion gibst du in deinem Fall die maximale Anzahl von 2 Nachkommastellen an. Da du jedoch keine Nachkommastellen hast, ist dieser Teil der Format-Funktion überflüssig. Die ganzzahlige Teil einer Zahl bzw. in deinem Fall die Zahl selbst, an sich wird immer kommplatt dargestellt.
Was möchtest du denn genau erreichen?

[TheMiller]

Ich möchte Sekunden und Millisekunden zweistellig anzeigen lassen, also ungefähr so

15:26

Aber geteilt habe ich bei den ms richtig, oder?

[DeddyH]

Zitat:

Zitat von Matze

Mit der Format-Funktion gibst du in deinem Fall die maximale Anzahl von 2 Nachkommastellen an. Da du jedoch keine Nachkommastellen hast, ist dieser Teil der Format-Funktion überflüssig. Die ganzzahlige Teil einer Zahl bzw. in deinem Fall die Zahl selbst, an sich wird immer kommplatt dargestellt.

Stimmt nicht ganz ;) .

Zitat:

Zitat von OH

d d
Dezimal. Das Argument muß ein Integerwert sein. Der Wert wird in einen String umgewandelt, der aus Dezimalzahlen besteht. Wenn der Format-String einen Bezeichner für die Genauigkeit enthält, muß der resultierende String mindestens die angegebene Anzahl von Stellen aufweisen. Enthält er weniger Stellen, wird der String auf der linken Seite mit Nullen aufgefüllt.

[Matze]

Und was habe ich da nun falsch gesagt?

Wenn ich angebe, eine 3-stellige Zahl soll mit 5 Stellen dargestellt werden, dann werden 2 Nullen vor die Zahl gesetzt. Ich meinte jedoch, er kann bei einer 3-stelligen Zahl nicht die letzte Ziffer abschneiden. Oder geht das doch?

@DJ: Ja deine Rechnung müsste stimmen. Millisekunden können von 0-999 gehen.

[DeddyH]

Sry, ich hatte Dich so verstanden, dass die Angabe einer Precision bei ganzen Zahlen überflüssig sei.

[Matze]

Ich bezog mich auf die der Nachkommastellen. Evtl. habe ich mich missverständlich ausgedrückt. ;)

@DJ: Du kannst die Millisekunden natürlich so abschneiden:

Delphi-Quellcode:

// Digit: 10, 100, 1000, ...
function CutIntTo(Number: Integer; Digit: Byte): Integer;
begin
  Result := Number div Digit;
end;

Aufruf:

Delphi-Quellcode:

Format('%d:%d', [s, CutIntTo(ms, 10)]);

Ich hoffe, ich habe nun keinen Denkfehler eingebaut.

[grenzgaenger]

Zitat:

Zitat von DJ-SPM

Ich möchte Sekunden und Millisekunden zweistellig anzeigen lassen, also ungefähr so

15:26

Aber geteilt habe ich bei den ms richtig, oder?

normal nicht richtig geteilt. das format ist im allgemeinen HH:MM:SS.ms also stunden, minuten, sekunden zweistellig, mit 'n D-Punkt getrennt. die millisekunden werden an die sekunden drangehängt und mit einem punkt getrennt. dabei ist mir keine feste stellenzahl der millisekunden bekannt. entweder direkt anschliessen oder auf 3 stellen formatieren. <HTH>

[mashutu]

Zitat:

Zitat von DJ-SPM

Ich möchte Sekunden und Millisekunden zweistellig anzeigen lassen, also ungefähr so

15:26

Aber geteilt habe ich bei den ms richtig, oder?

Ob du richtig geteilt hast weiss ich nicht, weil ich nicht weiss um welche Uhrzeit das Programm lief :-)
[/scherz]

Warum machst Du auf die Millisekunden keinen DIV 10?
Dann isses zweistellig.

Delphi-Quellcode:

Format('%d:%d', [s, ms div 10]);

[Matze]

Zitat:

Zitat von mashutu

Warum machst Du auf die Millisekunden keinen DIV 10?
Dann isses zweistellig.

Delphi-Quellcode:

Format('%d:%d', [s, ms div 10]);

Siehe mal, was hier steht und rate mal, was die Funktion macht. ;)

[TheMiller]

Danke an alle, die mir geholfen haben. Mit euren Vorschlägen funzt es jetzt!