vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Windows/System09.05.01
GetTickCount-Funktion

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

Betriebssystem:  Win95, Win98, WinNT, Win2000, WinMEViews:  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 

 
 
Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.