Shoutbox

quote:

---

Originally posted by Mnjul
Attachment: UptimeTicker.zip (16.1 KB)

---

nice

quote:

---

Originally posted by Sk3tch
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)


etc....

---

very complex code, isn't it?

what about this:

code:

---

Dim msecs As Long
Dim secs As Long
Dim mins As Long
Dim hours As Long
Dim days As Long
Dim total As Long
total = GetTickCount()

msecs = total Mod 1000
total = total / 1000

secs = total Mod 60
total = total / 60

mins = total Mod 60
total = total / 60

hours = total Mod 24
total = total / 24

days = total


'etc....

---