GetSystemTime

Aus API-Wiki
Version vom 5. November 2016, 22:47 Uhr von Jochen Wierum (Diskussion | Beiträge)

(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
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