FoxPro/Visual FoxPro - Calculo con Segundos

Estoy haciendo una aplicacion en Fox Pro DOS con calculos de tiempos y pengo un problemita que no se como solucionarlo

tengo una variable con el numero 85513 que son segundos

yo se que esos 85513 representan a 23 horas 45 minutos 13 segundos.

La consulta es como es el calculo o rutina para que a partir de la variable me de expresado en Hs Mi Se

Gracias !!!

Busca "Segundos a Hora" en este enlace
http://www.portalfox.com/index.php?name=News&file=article&sid=1162&mode=nested&order=0&thold=0

crea un prg:
MODI COMM HHMMSS

y copia allí el siguiente código:

PARA nSegTrans
PRIV ALL
****
IF SET('TALK')='ON'
SET TALK OFF
cTalk='ON'
ELSE
cTalk='OFF'
ENDIF
****
nSegTrans=IIF(TYPE('nSegTrans')='N' AND ;
nSegTrans>0,nSegTrans,0)
****
nValorAux=nSegTrans
nSegTrans=INT(nSegTrans)
nSegMiles=nValorAux-nSegTrans
nSegundos=nSegTrans%60
nValorAux=(nSegTrans-nSegundos)/60
nMinutos=nValorAux%60
nHoras=(nValorAux-nMinutos)/60
****
SET TALK &cTalk
****
RETU TRAN(nHoras,'@l 99')+':'+ ;
TRAN(nMinutos,'@l 99')+':'+TRANnSegundos,'@l 99')

hecho eso en la ventana de comandos haces por ejemplo:
? HHMMSS(85513)

y te devolverá la siguiente cadena de texto:
23:45:13

* SegToHMS.prg
* ============

* Retorna una cantidad de segundos en formato Horas Minutos y Segundos

LPARA Segundos

LOCAL Horas,Minutos

m.Horas=INT(m.Segundos/3600)
m.Segundos=MOD(m.Segundos,3600)
m.Minutos=INT(m.Segundos/60)
m.Segundos=MOD(m.Segundos,60)

RETURN LTRI(STR(m.Horas,13))+' Hs '+LTRI(STR(m.Minutos,2))+' Hs '+LTRI(STR(m.Segundos,4))+' Seg '

*==========================* (P) Carlos Cuyé