GetSystemTime: Unterschied zwischen den Versionen

Aus API-Wiki
Wechseln zu: Navigation, Suche
Zeile 1: Zeile 1:
Beispiel:
+
__NOTOC__
<PRE>Private Type SYSTEMTIME
+
<vb>Private Declare Sub GetSystemTime Lib "kernel32.dll" ( _
    wYear As Integer
+
                ByRef lpSystemTime As SYSTEMTIME)</vb>
    wMonth As Integer
+
           
    wDayOfWeek As Integer
+
==Beispiel==
    wDay As Integer
 
    wHour As Integer
 
    wMinute As Integer
 
    wSecond As Integer
 
    wMilliseconds As Integer
 
End Type
 
  
Private Declare Sub GetSystemTime Lib "kernel32.dll" ( _
+
<vb>Private Sub Main()
                ByRef lpSystemTime As SYSTEMTIME)
 
           
 
Private Sub Main()
 
 
     Dim udtUTC As SYSTEMTIME
 
     Dim udtUTC As SYSTEMTIME
 
      
 
      
Zeile 20: 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</PRE>
+
End Sub</vb>
  
 
== Verwandte Funktionen ==
 
== Verwandte Funktionen ==
 
+
*[[SYSTEMTIME]] - Struktur, die die Daten enthält
[[GetLocalTime]] - Dasselbe in Grün<br>
+
*[[GetLocalTime]] - Dasselbe in Grün<br>
[[GetSystemTimeAsFileTime]] - Noch sowas ähnliches, aber anders.<br>
+
*[[GetSystemTimeAsFileTime]] - Noch sowas ähnliches, aber anders.<br>

Version vom 9. Juni 2008, 17:41 Uhr

<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