this is what i used for my system info plug:
code:
Private Declare Function GetTickCount& Lib "kernel32" ()
Private Function WinUpTime()
Dim Secs, Mins, Hours, Days
Dim TotalMins, TotalHours, TotalSecs, TempSecs
Dim CaptionText
TotalSecs = Int(GetTickCount / 1000)
Days = Int(((TotalSecs / 60) / 60) / 24)
TempSecs = Int(Days * 86400)
TotalSecs = TotalSecs - TempSecs
TotalHours = Int((TotalSecs / 60) / 60)
TempSecs = Int(TotalHours * 3600)
TotalSecs = TotalSecs - TempSecs
TotalMins = Int(TotalSecs / 60)
TempSecs = Int(TotalMins * 60)
TotalSecs = (TotalSecs - TempSecs)
If TotalHours > 23 Then
Hours = (TotalHours - 23)
Else
Hours = TotalHours
End If
If TotalMins > 59 Then
Mins = (TotalMins - (Hours * 60))
Else
Mins = TotalMins
End If
If Hours = 0 Then
CaptionText = Mins & " Minutes, " & TotalSecs & " seconds" & vbCrLf
ElseIf Days = 0 Then
CaptionText = Hours & " Hours, " & Mins & " Minutes, " & TotalSecs & " seconds" & vbCrLf
Else
CaptionText = Days & " Days, " & Hours & " Hours, " & Mins & " Minutes, " & TotalSecs & " seconds" & vbCrLf
End If
WinUpTime = CaptionText
End Function
not sure if will help you but
....
should make sense
Visual Basics : Uptime
/ –
