Rubrik: Windows/System | 09.05.01 |
GetTickCount-Funktion GetTickCount liefert die Anzahl der vergangen Millisekunden seit dem Windows-Start. | ||
Betriebssystem: Win95, Win98, WinNT, Win2000, WinME | Views: 29.881 |
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