Du musst die Differenz durch die Frequenz teilen (irgendwie logisch, denn je höher die Frequenz desto niedriger die Sekundenzahl bei gleicher Differenz
). Hier mal ein Beispiel für Sekunden, Milli-, Mikro- und Nanosekunden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Start, Ende, F, Diff: Int64;
begin
QueryPerformanceFrequency(F);
QueryPerformanceCounter(Start);
Funktion();
QueryPerformanceCounter(Ende);
Diff := Ende - Start;
Label1.Caption := Format('%d Sekunden' + #13#10 +
'%d Millisekunden' + #13#10 +
'%d Mikrosekunden' + #13#10 +
'%d Nanosekunden', [Diff div F, Diff * 1000 div F, Diff * 1000000 div F, Diff * 1000000000 div F]);
end;