GetSystemTime

Aus API-Wiki
Wechseln zu: Navigation, Suche
Private Declare Sub GetSystemTime Lib "kernel32.dll" ( _
                ByRef lpSystemTime As SYSTEMTIME)

Beispiel

Private Sub Main()
    Dim udtUTC As SYSTEMTIME
    
    Call GetSystemTime(udtUTC)
    
    Debug.Print "UTC: " & Format$(TimeSerial(udtUTC.wHour, udtUTC.wMinute, udtUTC.wSecond), "hh\:nn\:ss")
End Sub

Verwandte Funktionen