Thema
Laufzeit von Windows seit letzten Start ermitteln
Gruppe
Zeit
Problem
Wie kann ich ermitteln, wie lange Windows seit dem letzten Start läuft?
StandardModule: basMain
Declare Function GetTickCount Lib "kernel32" () As Long
Sub WindowsTime()
MsgBox Format(GetTickCount / 24 / 60 / 60 / 1000, _
"d"" Tage, "" hh:mm:ss")
End Sub