Delphi - Hora y Fecha

 
Vista:

Hora y Fecha

Publicado por Sirjhan Betancourt (46 intervenciones) el 17/02/2004 02:10:07
Hola a todos...
Quiesiera saber como puedo colocar la hora y la fecha en ya sea en un edit o en uan etiqueta (label)..

Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Hora y Fecha

Publicado por Diego Romero (636 intervenciones) el 17/02/2004 03:43:28
Label1.Caption:=DateTimeToStr(Now);

o bién agregando DateUtils a la uses de tu unit puedes usar las funciones DayOf(), MonthOf() y YearOf().
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Hora y Fecha

Publicado por Delfino (1216 intervenciones) el 17/02/2004 13:14:11
label1.Caption := DateToStr(Date);
si lo quieres con formato especial utiliza la funcion FormatDateTime..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Hora y Fecha

Publicado por Sirjhan Betancourt (46 intervenciones) el 17/02/2004 17:44:17
Gracias por sus respuestas... pero en realidad lo que en si quiero es que dicha hora se mantenga activa en la forma (etiqueta,edit) grtacias...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Hora y Fecha

Publicado por Cuervo (262 intervenciones) el 17/02/2004 18:16:25
// pone un timer y un par label's en un form
// los procedimientos timer() y formCreate() deberian quedar asi:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:=TimeToStr(Time); // time
Label2.Caption:=DateTimeToStr(Now); // time y date
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=1 ; // se activa luego de 1 mili-segundo
end;

// el timer no se detiene salvo que: timer1.Destroy, timer1.free; //blahblah
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Hora y Fecha

Publicado por Anabel (1 intervención) el 18/02/2004 00:22:38
1 Timer y tres etiquetas (hora, díasemana, fecha)
En el único evento del timer (onTimer)

procedure TFMenu.Timer1Timer(Sender: TObject);
var
ShortDateTimeFormat : string;
begin
ShortDateTimeFormat := 'hh:mm';
if Copy(TimeToStr(Now),3,1) = ':' then
LHora.Caption := Copy(TimeToStr(Now),1,5)
else
LHora.Caption := Copy(TimeToStr(Now),1,4);
LSemana.Caption := FormatDateTime('dddd',Now);
LFecha.Caption := FormatDateTime('d "de "mmmm "de "yyyy',Now);
end;

Besos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar