Cojer hora del Sistema

[santiellupin]

Hola!
Lo cierto es que soy mas bien un novato de esto.

Bien, lo que necesito es tomar la hora que tengo el el sistema (cuando digo hora, es la fecha en general). He buscado en la ayuda de Delphi (q por cierto tengo la version 4), y solo he conseguido averiguar (que lo mismo no tiene nada que ver) algo con la ayuda, y es el "system.tDatetime" y el "system.pDateTime", pero no consigo sacar nada en claro. Se quiene que ser una de las denominadas (por lo menos por mi) funciones "chorra", pero cual... ahh!!

Muchas gracias por aclararme la duda por adelantado!

[__cadetill]

Now -> Fecha y hora actual
Date -> Fecha actual
Time -> Hora actual

Espero te sirva

[UTECYBER]

Empeze igual que tu, pero de verdad te recomiendo que practiques, Tu problema lo puedes resolver con esto.

Deposita un componente llamado StatusBar1[ (se encuentra en la pestaña Win32)] en el FormPrincipal.

Luego deposita un Componente llamado Timer{Esta en la pestaña Sistem}...

En el evento Ontimer, del componente timer introduce el siguiente codigo...

____________________________________________
procedure TFprincipal.Timer1Timer(Sender: TObject);
____________________________________________
begin
StatusBar1.Panels[0].Text:=FormatDateTime('dddd d yyyy mmmm "Son Las" HH:MM:SS',Now);
end;

Espero que te sirva.

Atte.Utecyber
Con la practica se aprende la inteligencia de la programacion.

[rolando_s]

Posteado originalmente por UTECYBER
Empeze igual que tu, pero de verdad te recomiendo que practiques, Tu problema lo puedes resolver con esto.

Deposita un componente llamado StatusBar1[ (se encuentra en la pestaña Win32)] en el FormPrincipal.

Luego deposita un Componente llamado Timer{Esta en la pestaña Sistem}...

En el evento Ontimer, del componente timer introduce el siguiente codigo...

____________________________________________
procedure TFprincipal.Timer1Timer(Sender: TObject);
____________________________________________
begin
StatusBar1.Panels[0].Text:=FormatDateTime('dddd d yyyy mmmm "Son Las" HH:MM:SS',Now);
end;

Espero que te sirva.

Atte.Utecyber
Con la practica se aprende la inteligencia de la programacion.
procedure TForm1.FormActivate(Sender: TObject);
var
DateTime : TDateTime;
str : string;
begin
DateTime := Time;
str := TimeToStr(DateTime);
label1.caption:=str;
DateTime := Date;
str := DateToStr(DateTime);
label2.caption:=str;
end;

[adrianstr]

var
fecha:string;
hora:String;
begin
FechaateToStr(now);
hora:=TimeToStr(Now);


asi de facil