;** Runtime eines Programms
;** 27.10.2005 by Triton
Global startTime = MilliSecs()
While Not KeyDown(1)
Cls
Text 10,10, runtime$()
Wend
;---
Function runtime$()
t2=MilliSecs()-starttime
h=t2/3600000
min=(t2 Mod 3600000)/60000
sek=(t2 Mod 60000)/1000
Return h+" std, "+min+" min, "+sek+" sek"
End Function
|