Transformar hora en formato 24 a formato 12

15/11/2005 - 14:57 por Jose Alberto Peña | Informe spam
Buenos dias.. Saludos!!

En esta oportunidad ingreso al foro para expresarles una duda sobre el
sistema de control de entrada y salida de empleados que estoy
realizando... Mi pregunta es, como hago para convertir la hora en formato
24 a formato 12; por ejemplo: 14:25:36 a 2:25:36 pm...

Gracias por su ayuda!

Ing. de Sistemas
National Motor's Corp
Maracay, Venezuela


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
 

Leer las respuestas

#1 Luis María Guayán
15/11/2005 - 15:33 | Informe spam
La función TIME() de VFP retorna la hora en formato 24, lo mejor es que
utilices esta UDF para convertir.

lc = TIME()
? Hora12(lc)

PROCEDURE Hora12(tcHora)
#DEFINE FORMATO_AM " a.m."
#DEFINE FORMATO_PM " p.m."
LOCAL ln
IF EMPTY(tcHora)
tcHora = TIME()
ENDIF
IF BETWEEN(tcHora,"01","12")
tcHora = tcHora + FORMATO_AM
ELSE
ln = ABS(VAL(tcHora)-12)
tcHora = TRANSFORM(IIF(ln=0,12,ln),"@L 99") + ;
SUBSTR(tcHora,3,6) + ;
IIF(tcHora < "01",FORMATO_AM,FORMATO_PM)
ENDIF
RETURN tcHora
ENDPROC


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

"Jose Alberto Peña" escribió en el mensaje
news:
Buenos dias.. Saludos!!

En esta oportunidad ingreso al foro para expresarles una duda sobre el
sistema de control de entrada y salida de empleados que estoy
realizando... Mi pregunta es, como hago para convertir la hora en formato
24 a formato 12; por ejemplo: 14:25:36 a 2:25:36 pm...

Gracias por su ayuda!

Ing. de Sistemas
National Motor's Corp
Maracay, Venezuela


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Preguntas similares