Uhrzeit auf die Millisekunde

[Crazymodder]

Mh
hab mal wieder ne kleine Frage wollt wissen wie es möglich ist die Uhrzeit auf die Millisekunde genau auszulesen. Also die normale mit Stunde minute Sekunde krieg ich hin aber ich hätte gerne zusaätzlich die Millisekunden.
Wäre über eure Hilfe sehr Dankebar.
mfg.
Crazymodder

[Umezawa]

Wozu so genau?



Du kannst doch zu anang jeder sec einen zähler laufen lassen.

[Die Muhkuh]

Schau Dir mal DecodeTime bzw. EncodeTime an.

[Crazymodder]

Thx für die super schnellen Antworten werde mal gleich die Hilfe durchstöbern thx

[fLaSh11]

Nur für den Fall, dass du etwas messen willst, solltest du dir einmal den QueryPerformanceCounter anschauen.

[QuickAndDirty]

DAS GEHT NICHT
Soweit ich weiß arbeitet die Interne UHR nur mit 18,2 impulsen pro sekunde (18,2 Herz)
für Millisekunden bräuchte man 1000 Herz.
Die Millisekunden werden offensichtlich nur mitgeführt um die Rundungsfehler zu minimieren.

[Die Muhkuh]

Trotzdem nimmt man zum Messen GetTickCount oder QueryPerformanceCounter. Es gibt ja noch einen Counter, glaub ich, dessen Name mir gerade nicht einfällt.

[QuickAndDirty]

Sicher, nur kann man so nicht Millisekunden genau messen.
Damit sich das irgendwie ausgleicht, müste man einen wiederholbaren Vorgang mehrmals messen
und ein Statistischesmittel errechnen.
Oder Du verwendest professionelles Equipment.

[TStringlist]

@Crazymodder, die Uhrzeit? In "NOW" sind doch die Millisekunden immer auch schon mit dabei!

label1.Caption := FormatDateTime('hh:nn:ss:zzz', NOW);

[Jelly]

Zitat von TStringlist:

@Crazymodder, die Uhrzeit? In "NOW" sind doch die Millisekunden immer auch schon mit dabei!

Ja, aber eben nur auf 15 msec genau. Genauer kann man damit nicht rechnen.
Probierts aus:

Delphi-Quellcode:

procedure TForm27.Button1Click(Sender: TObject);
var
  t, t1: TDateTime;
  t0: TDateTime;
begin
     t := now ;
     t0 := t ;
     listbox1.Items.BeginUpdate;
     while now - t0 < EncodeTime (0,0,3,0) do begin
         t1 := now ;
         if t <> t1 then begin
             listbox1.items.add (formatDateTime ('s, zzz',t1-t)) ;
             t := now ;
         end;
     end ;
     listbox1.Items.EndUpdate;
end;

GetTickCount hingegen ist auf die msec genau.