System UpTime

This code has been declared by its author to be Public Domain code.

System UpTime by pexe

2004

Return how long your system is up
you can format the result by using
d - Days
h - Hours
m - Minutes
s - Seconds
m - Millisecs

enjoy!

Function DLLSystemTime$(ret$)
ret$ = Replace$(ret$,"d",Replace(LSet(MilliSecs()/1000/60/60/24,2)," ","0"))
ret$ = Replace$(ret$,"h",Replace(RSet(MilliSecs()/1000/60/60-(MilliSecs()/1000/60/60/24*24),2)," ","0"))
ret$ = Replace$(ret$,"m",Replace(RSet(MilliSecs()/1000/60-(MilliSecs()/1000/60/60*60),2)," ","0"))
ret$ = Replace$(ret$,"s",Replace(RSet(MilliSecs()/1000-(MilliSecs()/1000/60*60),2)," ","0"))
ret$ = Replace$(ret$,"m",Replace(RSet(MilliSecs()-(MilliSecs()/1000*1000),4)," ","0"))
Return ret$
End Function

Comments

None.

Code Archives Forum