Office: Millisekunden genau

Hallo,

ich brauche für eine Berechnung, die Zeiterfassung in Millisekunden genau.
So z.B.: 12:450:45:523
Mein Programm funktioniert nur 10ms genau. Ich brauche es aber noch genauer.
Kann man das über die Sytemzeit machen? Kann mir evtl jemand weiterhelfen?
Ich danke für die Hilfe im voraus.

Stefan

Hier habe ich mal das Programm, das ich geschrieben habe:

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)


Private Type SYSTEMTIME

wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer

End Type


Private Function getLocalTimeMS() As String

Dim typSystemZeit As SYSTEMTIME
GetLocalTime typSystemZeit
getLocalTimeMS = Format(typSystemZeit.wHour, "00") & ":" & Format(typSystemZeit.wMinute, "00") & ":" & Format(typSystemZeit.wSecond, "00") & "," & Format(typSystemZeit.wMilliseconds, "00")

End Function


Public Sub Sleep(pausetime As Integer)

Start = Timer

Do While Timer < Start + pausetime
DoEvents
Loop

End Sub


Function State(Value As Long) As String

If (Value) Then
State = "Ein"
Else
State = "Aus"
End If

End Function


Private Sub CommandButton1_Click()
' Messwerte aufnehmen und in Tabelle eintragen

For I = 1 To 65536

Tabelle1.Cells(2 + I, 1).Value = ""

Call Sleep(Val("" & Tabelle1.Cells(6, 11)))

Tabelle1.Cells(2 + I, 1).Value = getLocalTimeMS
Tabelle1.Cells(2 + I, 2).Value = State(dw And 1)
Tabelle1.Cells(2 + I, 3).Value = State(dw And 2)
Tabelle1.Cells(2 + I, 4).Value = State(dw And 4)
Tabelle1.Cells(2 + I, 5).Value = State(dw And 8)
Tabelle1.Cells(2 + I, 6).Value = State(dw And 16
Tabelle1.Cells(2 + I, 7).Value = State(dw And 32)
Tabelle1.Cells(2 + I, 8).Value = State(dw And 64
Tabelle1.Cells(2 + I, 9).Value = State(dw And 128

Next I

ende:
End Sub

:)

 

Hallo Stefan,

die zwei API Funktionen 'QueryPerformanceFrequency' und 'QueryPerformanceCounter' sollten Dir weiterhelfen.

 

Hallo Thomas,

ich habe nicht ganz verstanden was Du da machen möchtest. Trotzdem eine Bemerkung. Wenn Du die Systemzeit aus dem PC ausliest (ich bin kein Elektroniker, Infos vom hörensagen, da mit ähnlichem Problem gekämpft), ist diese abhängig von der Wechselstromfrequenz des Neztes. Diese scan mal spaßeshalber an verschiedenen Orten zu verschiedenen Zeiten. Insbesondere durch das anlaufen und anhalten großer E-Motoren kann deutlich Blindstrom eingespeist werden, der die Netzfrequenz durcheinander bringt. Eine derartige Zeitmessung muß ungenau sein. Und wie wir alle mal in der Schule gelernt haben sollten, soll die Zahl der Nachkommastellen mit der Meßgenauigkeit korrellieren. Übrigens liest auch eine Funkuhr nur alle x minuten die Zeit aus dem Funksignal und korrigiert dann. Also auch nicht wirklich eine Hilfe.

Also überprüfe noch mal ob Deine Zeitmessung für den Anwendungsfall genau genug ist. (Wie gesagt ich bin auch kein MSR Profi)

Turbo

 

Hallo zusammen,

VB-fun.de - Exakte Zeitmessung (Tipp 0267)