Que hora es?
 

Hola aqui estoy de nuevo con otra duda.

Ahora necesito saber como hacer para tomarla hora actual en la pc. La idea es poner estos datos en variables, para luego guardarlas en un registro.

Gracias de antemano a sus respuestas.

Hola,

Código Delphi [-]
 TimeToStr(Now);

Wow...
 

De nuevo me has sorprendido dec. Muchas Gracias.:)

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.

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.

Pero ahora necesito saber como dividir las horas, minutos y segundos.
Es con lo que voy a trabajar.

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.

Hola,

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

Más en la unidad "DateUtils".

Gracias Dec

Hola,


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

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.

Ahora, como tomo el dia y fecha. Gracias.


Perdon, no habia actualizado el explorador. Gracias.

Gracias marcoszorrilla.