*****************************************
* stohms2
******************************************
PARAMETERS tiSeconds
LOCAL seconds,hrs,leftover,mins,secs,lcHMS
*-----------------------------------------*
* Testing
*-----------------------------------------*
IF PCOUNT()=0
	seconds=960
ELSE
	seconds=IIF(VARTYPE(tiSeconds)=[C], VAL(tiSeconds), tiSeconds) 
ENDIF 

hrs = seconds / 3600
leftover = seconds % 3600
mins = leftover / 60
secs = leftover % 60

lcHMS=PADL(ALLTRIM(STR(hrs)),2,'0')+[:]+PADL(ALLTRIM(STR(Mins)),2,'0')+[:]+PADL(ALLTRIM(STR(secs)),2,'0')

return(lcHMS)