Convertir diferencia entre 2 datatime

25/06/2004 - 18:41 por Javier Garzon | Informe spam
Que funcion puedo usar para mostrar la diferencia de dos
campos Datatime, en horas:minutos??? y no fraccion de
horas????

Mil gracias..
 

Leer las respuestas

#1 Luis María Guayán
25/06/2004 - 20:34 | Informe spam
lnSegundos = DATETIME(2004,07,31,23,45,00) - DATETIME()
? Seg2Hor(lnSegundos)

*--
* FUNCTION Seg2Hor(nSegundos)
*--
* Transforma segundos a formato hhHH:MM:SS
* USO: Seg2Hor(nSegundos)
* EJEMPLO: Seg2Hor(35000)
* RETORNA: Caracter 'HH:MM:SS'
* AUTOR: LMG
*--
FUNCTION Seg2Hor(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
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos

"Javier Garzon" escribió en el mensaje
news:21bd101c45ad3$541d9280$
Que funcion puedo usar para mostrar la diferencia de dos
campos Datatime, en horas:minutos??? y no fraccion de
horas????

Mil gracias..

Preguntas similares