.. .. .. ..   ..
BlitzBasic > Codearchiv > AllgemeinAktuallisiert 30.05.2009

..  Runtime eines Programmes - von Triton 
Ein kleines Programm, dass einem die Laufzeit des Programms in Stunden, Minuten und Sekunden angibt.

;** 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