8 de marzo de 2000

Transformar una cantidad n de segundos a HH:MM:SS

Función que transforma una cantidad de segundos a formato HH:MM:SS.
*--------------------------------------------------------------------------
* FUNCTION _Seg2Hor(nSegundos)
*--------------------------------------------------------------------------
* Transforma segundos a formato hhHH:MM:SS
* USO: _Seg2Hor(nSegundos)
* EJEMPLO: _Seg2Hor(35000)
* RETORNA: Caracter 'HH:MM:SS'
*--------------------------------------------------------------------------
*FUNCTION _Seg2Hor(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
Luis María Guayán

No hay comentarios. :

Publicar un comentario