Transformar hora en formato 24 a formato 12

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

En el menu Tools selecciona optiones y en la pestaña regional lo puedes
configurar.

Saludos
Jesús Corrales


"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