Detectar Hora AM-PM

[AGAG4]

Como puedo detectar en una PC si esta como formato de 24 Horas ó de 12 Horas(AM/PM)????

Lo que quiero hacer es mostrar la hora de la pc ya sea si esta en cualquier formato.

Por ejemplo:
Tengo una variable "Tiempo" de tipo "tTime", le asigno la hora actual con:

Código Delphi [-]
Tiempo:=Now;

Si son las 10:30 am ó las 10:30 pm
Al mostrar la hora con un Label me pone 10:30:20
No se sabe correctamente si es en la mañana ó en la tarde.

Agradezco cualquier sugerencia.

[El_Perrito]

Señor Agag4 eso depende de la configuracion de la Hora que le haya puesto a su pc si la tiene en modo de 24 horas no le dice si es am o pm a diferencia de si la tiene configurada en 12 horas

que estes bien!!!

¿Puedes ir a las Palmas?

[AGAG4]

Sr. Perrito eso ya lo se, ya le cambie la Configuración de la Pc a formato 12 horas y 24 horas.

Por ejemplo: Son las 10:30 am
Cambio la Configuración de la PC a 12 horas(Am/Pm) y Solo me pone 10:30

Gracias Sr. Perrito.

¿No puedes ir a Macopsa?

[roman]

No sé cómo estás poniendo la hora en el label pero si usas TimeToStr la hora aparecerá según el formato indicado en la variable global LongTimeFormat que dependerá de la configuración regional del sistema. Su tu sistema está en 12h entonces debe aparecerte am o pm pero si está en 24h no aparecerá ningún posfijo.

Si lo que deseas es que la hora aparezca en formato 12h independientemente de la configuración regional del sistema puedes cambiar el valor de LongTimeFormat a tu gusto o utilizar la función FormatDateTime para establecer el formato, por ejemplo:

Label1.Caption := FormatDateTime('hh:mm am/pm');

te desplegará la hora con horas y minutos en formato de 12h.

// Saludos

[AGAG4]

Ya me funciono.
Muchas Gracias Sr. Roman, una Aclariación le falto agregarle el parámetro NOW:

Código Delphi [-]
Label1.Caption := FormatDateTime('hh:mm am/pm',Now);

Hasta el Mejor Cazador se le escapa la Liebre
Es de Sabios Equivocarse.
Gracias...
Que tenga buen día.