GetTickCount-Funktion GetTickCount liefert die Anzahl der vergangen Millisekunden seit dem Windows-Start.
Betriebssystem:  Win95, Win98, WinNT, Win2000, WinME	Views:  29.924

Beschreibung:
GetTickCount liefert die Anzahl der vergangen Millisekunden seit dem Windows-Start.

Deklaration:

Declare Function GetTickCount Lib "kernel32.dll" () As Long

Parameter:

keine

Rückgabewert:
Anzahl Millisekunden seit dem Windows-Start (Long-Wert).

Beispiel:

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Sub Timer1_Timer () 
  Dim AlleSekunden, Stunden, Minuten, Sekunden As Long 
 
  AlleSekunden = Val(GetTickCount / 1000) 
  Sekunden = AlleSekunden Mod 60 
  Minuten = Val(AlleSekunden / 60) Mod 60 
  Stunden = Val(AlleSekunden / 60 / 60) 
  Label1.Caption = "Ihr PC läuft seit " & Format(Stunden, "00") & ":" & _ 
  Format(Minuten, "00") & ":" & Format(Sekunden, "00") & " Stunden." 
End Sub