Obtener la hora y fecha del sistema
Por diseño, la función TIME() devuelve la hora del sistema local en formato de 24 horas, pero si lo que deseas mostrarla en formato de 12 (AM/PM) te muestro como realizarlo.
La siguiente función se hace necesaria debido a que la función Time() (propìa de VFP) no se ve afectada por la configuración de SET HOURS, la función TTOC() actúa diferente.
Coloca este procedimiento en el Evento Init de tu formulario.
* Program.....: Program Fecha_hora
* Description...:Obtiene la fecha(AM/PM) y horaen formato 12 horas
* Parameters....: none
* Returns......: Character [11 bytes len]
* Date.........: 07-Junio-2019
* Autor.........: Luis Francisco
*
fecha=Dtoc(Date())
hora=TIME()
ampm=""
If Val(Substr(Time(),1,2))<13
ampm="AM"
Else
ampm="PM"
Endif
Thisform.Caption =hora+" "+fecha+" "+ampm
Por diseño, la función TIME() devuelve la hora del sistema local en formato de 24 horas, pero si lo que deseas mostrarla en formato de 12 (AM/PM) te muestro como realizarlo.
La siguiente función se hace necesaria debido a que la función Time() (propìa de VFP) no se ve afectada por la configuración de SET HOURS, la función TTOC() actúa diferente.
Coloca este procedimiento en el Evento Init de tu formulario.
* Program.....: Program Fecha_hora
* Description...:Obtiene la fecha(AM/PM) y horaen formato 12 horas
* Parameters....: none
* Returns......: Character [11 bytes len]
* Date.........: 07-Junio-2019
* Autor.........: Luis Francisco
*
fecha=Dtoc(Date())
hora=TIME()
ampm=""
If Val(Substr(Time(),1,2))<13
ampm="AM"
Else
ampm="PM"
Endif
Thisform.Caption =hora+" "+fecha+" "+ampm