Pausenzeit über API Steuerung ähnlich Application.Wait

[Wulfi]

Hallo Excel Cracks,

ich habe hier folgenden funktionierenden Code zur millisekundengenauen Zeitanzeige:

Code:

Private Declare PtrSafe Sub GetSystemTime 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

Public Function ExactTime() As String  ' TimeStamp hh:nn:ss.mmm
 Dim st As SYSTEMTIME
 GetSystemTime st
 ExactTime = Format(st.wHour, "00") & ":" & Format(st.wMinute, "00") & ":" & _
   Format(st.wSecond, "00") & "." & Format(st.wMilliseconds, "000")
Debug.Print ExactTime
End Function

Sub Aufruf()
ExactTime
End Sub

Was ich bräuchte wäre eine auf diesen Code aufbauende entsprechende Funktion zur Programmunterbrechung wie:

Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1) ' 1 für 1 Sekunde Pause

Nur soll der Code eben auf der Windows API aufbauen, um auch die Unterbrechungen millisekundengenau zu ermöglichen.

Ich hoffe ihr könnt mir dabei helfen. Wäre sehr schön.

Wulfi

[Kuwer]

Hallo Wulfi,

vielleicht mit der Sleep-Funktion?

Option Explicit

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub TestSleep()
 MsgBox "Starte Test"
 Sleep 500
 MsgBox "Ende Test"
End Sub

Gruß Uwe

[schauan]

Hallo Wulfi,

ich habe hier
http://www.xltips.de/VBA-API.html
auch noch ein paar Zeilen dazu geschrieben. Die codes dazu sind weiter unten in dem Beitrag.