GetSystemTime: Unterschied zwischen den Versionen

Aus API-Wiki
Wechseln zu: Navigation, Suche
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, 22: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