* This routine converts a numeric value representing seconds,
* into a character string of hh:mm:ss format.
* Anything over 24 hours is still expressed as hours e.g. 174:22:31
* expN1 Seconds
FUNCTION SecondToFormat
PARAMETERS tnSecond
LOCAL lnHour,lnMinute,lnSecond
lnHour=INT(tnSecond/3600)
lnMinute=INT((tnSecond-(lnHour*3600))/60)
lnSecond=(tnSecond-(lnHour*3600)-(lnMinute*60))
RETURN PADL(LTRIM(STR(lnHour)),2,'0')+':'+PADL(LTRIM(STR(lnMinute)),2,'0')+':'+PADL(LTRIM(STR(lnSecond)),2,'0')