Que hora es?

D-MO · #1 13-10-2005

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.

dec · #2 13-10-2005

Hola,

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

D-MO · #3 13-10-2005

De nuevo me has sorprendido dec. Muchas Gracias.

marcoszorrilla · #4 13-10-2005

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 · #5 13-10-2005

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.

D-MO · #6 13-10-2005

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

marcoszorrilla · #7 13-10-2005

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 · #8 13-10-2005

Hola,

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

Más en la unidad "DateUtils".

D-MO · #9 13-10-2005

Gracias Dec

dec · #10 13-10-2005

Hola,

Cita:

Empezado por Marcos

"Todas las horas hieren la última mata",

Esto podía ser una adivinanza.

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

marcoszorrilla · #11 13-10-2005

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.

D-MO · #12 13-10-2005

Ahora, como tomo el dia y fecha. Gracias.

Perdon, no habia actualizado el explorador. Gracias.

D-MO · #13 13-10-2005

Gracias marcoszorrilla.