Que hora es?

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
tHora:TTime;
begin
tHora:=Time;
label1.Caption :=TimeToStr(tHora);
end;

Aunque se puede pasar directamente a la etiqueta o campo sin necesitad de la variable, pero a modo de ejemplo te puede servir.

Un Saludo.

[dec]

Hola,

Parece más propio utilizar "Time" que no "Now", como sugiere Marcos, aunque el resultado sea el mismo. También puede interesarte la función:

Código Delphi [-]
 FormatDateTime('hh:mm:ss', Time)

Echa un vistazo sobre dicha función en la ayuda de Delphi.

[marcoszorrilla]

Hablando de tiempo, en lo que preparo un ejemplo ya se me ha adelantado David.

"Todas las horas hieren la última mata",

Esto podía ser una adivinanza.

Un Saludo.

[dec]

Hola,

Código Delphi [-]
   HourOf(Time);
   MinuteOf(Time);
   SecondOf(Time);

Más en la unidad "DateUtils".

[D-MO]

Gracias Dec

[D-MO]

Ahora, como tomo el dia y fecha. Gracias.


Perdon, no habia actualizado el explorador. Gracias.

[D-MO]

Gracias marcoszorrilla.

[dec]

Hola,

Empezado por Marcos

"Todas las horas hieren la última mata",

Esto podía ser una adivinanza.

Google acabará con todo romanticismo... ¿o no?

[marcoszorrilla]

También puedes utilizar:
DecodeTime:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
    + IntToStr(Month) + ' of Year ' + IntToStr(Year);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
    + IntToStr(Hour);
end;

Un Saludo.