How can you get current uptime using GetTickCount?

[qpabani]

Heres my current code:

MilliSeconds = GetTickCount
    Days = MilliSeconds / 86400000
    MilliSeconds = MilliSeconds Mod 86400000
    Hours = MilliSeconds / 3600000
    MilliSeconds = MilliSeconds Mod 3600000
    Minutes = MilliSeconds / 60000
    MilliSeconds = MilliSeconds Mod 60000
    Seconds = MilliSeconds / 1000

but this has major issues with rounding (IE 1hr 30 mins is displayed as 2 hr 30 min)

anyone know of anything else?

[ZeroCool]

What Have You Declared MilliSeconds, Days, Hours, Seconds as?

[qpabani]

Dim MilliSeconds As Long, Days As Integer
Dim Hours As Integer, Minutes As Integer, Seconds As Integer

should they all be long?

[Slaine]

The following seems to work for me.

Dim Days, Hours, Minutes, Seconds As Long
    
    Dim ret As Long
    
    'Get the tickcount
    ret = GetTickCount&
    
    Days = ret \ 86400000
    Hours = (ret - (Days * 86400000)) \ 3600000
    Minutes = (ret - (Days * 86400000) - (Hours * 3600000)) \ 60000
    Seconds = (ret - (Days * 86400000) - (Hours * 3600000) - (Minutes * 60000)) \ 1000
    
    MsgBox Days & " Days, " & Hours & " Hours, " & Minutes & " Minutes, " & Seconds & " Seconds."