Anónimo
Hora (Am - Pm)
Hola buenos días Alonso
Tengo un formulario con un TextBox donde quiero que se me muestre la hora pero con las terminaciones (Am o Pm) al final de la hora. Quisiera saber si tienes una función que me puedas proporcionar que haga esto.
De antemano muchas gracias
Tengo un formulario con un TextBox donde quiero que se me muestre la hora pero con las terminaciones (Am o Pm) al final de la hora. Quisiera saber si tienes una función que me puedas proporcionar que haga esto.
De antemano muchas gracias
1 Respuesta
Respuesta de tigrefox
1
Para nuestro caso hablamos de un formulario con un textbox que muestra la hora y se llama HORA, en la propiedad INIT puedes colocar lo siguiente
LOCAL ti, h, m, ap
ti = TIME()
h = SUBSTR(ti,1,2)
IF h > "12"
h = ALLTRIM(STR(VAL(h)-12,2,0))
ap = " PM"
m = SUBST(ti,3,6)
IF h< "10"
ti = "0"+h+m
ELSE
ti = h+m
ENDIF
ELSE
ap = " AM"
ENDIF
this.Value = ti+ ap
Ya entendido esto puedes moverlo donde quieras y usarlo a tu antojo.
Éxitos, no olvides finalizar la pregunta
LOCAL ti, h, m, ap
ti = TIME()
h = SUBSTR(ti,1,2)
IF h > "12"
h = ALLTRIM(STR(VAL(h)-12,2,0))
ap = " PM"
m = SUBST(ti,3,6)
IF h< "10"
ti = "0"+h+m
ELSE
ti = h+m
ENDIF
ELSE
ap = " AM"
ENDIF
this.Value = ti+ ap
Ya entendido esto puedes moverlo donde quieras y usarlo a tu antojo.
Éxitos, no olvides finalizar la pregunta