GetSystemTime

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

• SYSTEMTIME - Struktur, die die Daten enthält
• GetLocalTime - Dasselbe in Grün
  
• GetSystemTimeAsFileTime - Noch sowas ähnliches, aber anders.
  
• GetTimeZoneInformation - Zeitzoneninformationen