GetSystemTime: Unterschied zwischen den Versionen
Aus API-Wiki
Zeile 1: | Zeile 1: | ||
__NOTOC__ | __NOTOC__ | ||
− | <vb>Private Declare Sub GetSystemTime Lib "kernel32.dll" ( _ | + | <<syntaxhighlight lang="vb">>Private Declare Sub GetSystemTime Lib "kernel32.dll" ( _ |
− | ByRef lpSystemTime As SYSTEMTIME)</vb> | + | ByRef lpSystemTime As SYSTEMTIME)</<syntaxhighlight lang="vb">> |
==Beispiel== | ==Beispiel== | ||
− | <vb>Private Sub Main() | + | <<syntaxhighlight lang="vb">>Private Sub Main() |
Dim udtUTC As SYSTEMTIME | Dim udtUTC As SYSTEMTIME | ||
Zeile 11: | Zeile 11: | ||
Debug.Print "UTC: " & Format$(TimeSerial(udtUTC.wHour, udtUTC.wMinute, udtUTC.wSecond), "hh\:nn\:ss") | Debug.Print "UTC: " & Format$(TimeSerial(udtUTC.wHour, udtUTC.wMinute, udtUTC.wSecond), "hh\:nn\:ss") | ||
− | End Sub</vb> | + | End Sub</<syntaxhighlight lang="vb">> |
== Verwandte Funktionen == | == Verwandte Funktionen == |
Version vom 5. November 2016, 23:10 Uhr
<<syntaxhighlight lang="vb">>Private Declare Sub GetSystemTime Lib "kernel32.dll" ( _
ByRef lpSystemTime As SYSTEMTIME)</<syntaxhighlight lang="vb">>
Beispiel
<<syntaxhighlight lang="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</<syntaxhighlight lang="vb">>
Verwandte Funktionen
- SYSTEMTIME - Struktur, die die Daten enthält
- GetLocalTime - Dasselbe in Grün
- GetSystemTimeAsFileTime - Noch sowas ähnliches, aber anders.
- GetTimeZoneInformation - Zeitzoneninformationen