Code: Select all
Global base
base = {}
;; base:SecsToHMS(s)
; Convert seconds into Hours, Minutes and Seconds
Function base:SecsToHMS(s)
Local h, m
h=Int(s/3600)
s=s-(h*3600)
m=Int(s/60)
s=Int(s-(m*60))
Return(h, m, s)
EndFunction