FoxPro/Visual FoxPro - codigo para pasar segundos a dias,horas minutos

Hola compañeros ....neccesito de su valiosa ayuda...

Necesito el codigo que me permita convertir una cantidad "n" de segundos en dias,horas, minutos y segundos.............

gracias

Si te envio el codigo fuente me quedaria con la sensacion de que realmente no te he ayudado, puesto que la solucion al problema esta en tu cabeza y no reviste una grado de complejidad elevado lo que tienes que hacer es darte el tiempo para analizar y tal vez hacer un bosquejo en papel y alli surgira tu solucion y te sentiras satisfecho.
Que te vaya bien.
TITO

Espero te sirva:

clear all
set stat off
set talk off
set safe off
clear

segundos=0
minutos=0
horas=0
dias=0

@ 10,10 get segundos pict '###,###'
read

xseg=0

for I=1 to segundos
xseg=xseg+1
if xseg=60
minutos=minutos+1
xseg=0
endif

if minutos=60
horas=horas+1
minutos=0
endif

if horas=24
dias=dias+1
horas=0
endif
endfor

@ 10,10 say 'Dias: '+alltrim(str(dias))+' Horas: '+alltrim(str(horas))+' Minutos: '+alltrim(str(minutos))+' Segundos: '+alltrim(str(xseg))

Esta me la pasaron a mi
** CONVERTE SEGUNDOS NO FORMATO HHH:MM:SS
*-----------------
FUNCTION sectohour
*-----------------
* parm1 = segundos
LPARAMETERS m.parm1
LOCAL m.dummy,m.hora,m.minuto,m.segundo
m.parm1 = INT(m.parm1)
m.hora = INT(m.parm1/3600)
m.parm1 = m.parm1 - (m.hora*3600)
m.minuto = INT(m.parm1/60)
m.segundo = m.parm1 - (m.minuto*60)
m.parm1 = STRTRAN(STR(m.hora,4,0)+":"+STR(m.minuto,2,0)+":"+STR(m.segundo,2,0)," ","0")
IF m.parm1 = "0"
m.parm1 = SUBSTR(m.parm1,3)
IF m.parm1 = "0"
m.parm1 = SUBSTR(m.parm1,2)
ENDIF
ENDIF
RETURN m.parm1
ENDFUNC