*------------------------------------------------------- * FUNCTION Sec2Hours(nSegundos) *------------------------------------------------------- * Transform seconds to format hhHH:MM:SS * USE: Sec2Hours(nSegundos) * RETURN: Caracter '[hh]HH:MM:SS' *------------------------------------------------------- FUNCTION Sec2Hours(nSegundos) lpara nSegundos LOCAL lnHoras, lnMinutos, lnSegundos lnHoras = INT(nSegundos/3600) lnMinutos = INT(((nSegundos-(lnHoras*3600))/60)) lnSegundos = MOD(nSegundos,60) RETURN IIF(lnHoras<100,TRANSFORM(lnHoras,"@L 99"), ; TRANSFORM(lnHoras,"@L 9999")) +":"+ ; TRANSFORM(lnMinutos,"@L 99")+":"+ ; TRANSFORM(lnSegundos,"@L 99") ENDFUNC *-------------------------------------------------------