Ver Mensaje Individual
  #2  
Antiguo 17-09-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

El componente que mencionas podría servir para mostrar la fecha y hora, empero, se utiliza más bien para permitir al usuario que eliga una fecha y hora determinadas. Lo que quieres hacer puedes conseguirlo con un sencillo "TLabel", por ejemplo.

Puedes mostrar la fecha y hora actuales en un "TLabel", simplemente, valiéndote de funciones como "Now()", "Date()" y/o "Time()", implementadas en la unidad "SysUtils.pas". Pero con dichas funciones obtendrías datos del tipo "TDateTime", "TDate" y "TTime", respectivamente.

Como la intención es mostrar la fecha y hora en un "TLabel" es un dato de tipo "string" lo que nos hace falta. Y aquí es donde ya se abren varias posibilidades, puesto que cuentas con varias funciones, desde las más "sencillas" "DateTimeToString()", "DataToString()", "TimeToString()", hasta algunas más "avanzadas" como "DateTimeToString()" o "FormatDateTime()", con la posibilidad dar diferentes formatos a sus salidas.

Puedes revisar la ayuda de las funciones susomentadas (sobre todo de estas últimas, por las posibilidades de formato que te ofrecen), pero, el asunto podría quedar más o menos así de sencillo:

Código Delphi [-]
  Label1.Caption := DateTimeToStr(Now);

Ahora bien, si quieres que la hora "avanze" como si de una especie de reloj se tratara, puedes usar un componente "TTimer" con un intervalo de 1000 milisegundos (1 segundo), y utilizar su evento "OnTimer" para, simplemente, actualizar la etiqueta ("TLabel") tal como se hace arriba, pero cada segundo, de modo que al cabo se vería una especie de reloj.

¿Un ejemplo de uso de la función "FormatDateTime()"? Sea, pero, no dejes de revisar la ayuda igualmente:

Código Delphi [-]
  Label1.Caption := FormatDateTime('dd/mm/yy hh:mm:ss am/pm', Now());
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 17-09-2007 a las 05:56:47.
Responder Con Cita