FoxPro/Visual FoxPro - Calculo con Segundos

   
Vista:

Calculo con Segundos

Publicado por Pedro (7 intervenciones) el 15/12/2007 15:34:47
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 !!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Calculo con Segundos

Publicado por Plinio (7771 intervenciones) el 16/12/2007 01:27:49
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Calculo con Segundos

Publicado por Luighi (105 intervenciones) el 16/12/2007 21:51:18
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Calculo con Segundos

Publicado por Carlos Cuyé (75 intervenciones) el 17/12/2007 22:55:00
* 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é
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar