GetSystemTime

Aus API-Wiki
Zur Navigation springenZur Suche springen
Die druckbare Version wird nicht mehr unterstützt und kann Darstellungsfehler aufweisen. Bitte aktualisiere deine Browser-Lesezeichen und verwende stattdessen die Standard-Druckfunktion des Browsers.

<vb>Private Declare Sub GetSystemTime Lib "kernel32.dll" ( _

               ByRef lpSystemTime As SYSTEMTIME)</vb>
           

Beispiel

<vb>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</vb>

Verwandte Funktionen