Problemas con TTimer
 

Saludos.

Bueno me doy por vencido.

Después de unas cuantas horas intentando hacerlo por mi mismo, he llegado a la conclusión, de que sin la inestimable ayuda del generoso club Delphi, realmente no soy nadie.

Mi problema es el siguiente.

Tengo en un formulario insertado un TTimer y en su evento OnTimer este codigo

StaticText.Caption := TimeToStr(Now);

Hasta aquí todo bien.

Pero resulta que la hora la pone de la siguiente forma

Ejemplo

1:10:30 y yo necesito por razones que me llevarían un buen rato explicar.

01:10:30, necesito poner el cero delante cuando sea 1, 2, 3, 4, 5, 6, 7, 8, 9

y quedaría así 01,02,03,04,05,06,07,08,09

Y cuando sean la 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24 que no ponga el cero.

Estoy intentando utilizar la función Lenght( ), pero nada, no se ni por donde empezar.

¿Sería posible hacer lo que pido?

Gracias.

Utiliza la función FormatDateTime();

Código Delphi [-]
Label1.Caption:=FormatDateTime('h:nn:ss', Now); //En vez de Now puedes utilizar Time, igual que Date para fechas ;)

Mira en la ayuda para saber cómo se utiliza el formato.

Por ejemplo, este es uno que utilizo yo:

Código Delphi [-]
Ahora:=FormatDateTime('"Hoy," dddd d "de" mmmm "de" yyyy, "a las" h:nn "horas"', Now);

Incluso tienes la opción (no recuerdo cómo era) de que te salga am/pm.

Saludos. ;)

[quote=ixMike;260424]Utiliza la función FormatDateTime();

Código Delphi [-]
Label1.Caption:=FormatDateTime('h:nn:ss', Now); //En vez de Now puedes utilizar Time, igual que Date para fechas ;)

Funciona al ponerle una h más así:
Label1.Caption:=FormatDateTime('hh:nn:ss', Now);

y va perfecto.

Muchas gracias ixMike, eres grande amigo.:D

¡ay! claro, si tú SÍ querías el cero de delante :D, ¡qué despiste! ¿Lo lograste por azar, por mirar la ayuda, o porque ya sabías de estos formatos? :)

Y de nada, hombre, para eso estamos.


Salu2 ;)

Sencillamente me refrescaste la memoria, ixMike.

Gracias de nuevo.