Foros Club Delphi - Cojer hora del Sistema

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Cojer hora del Sistema (https://www.clubdelphi.com/foros/showthread.php?t=4031)

santiellupin

29-09-2003 19:02:35

Cojer hora del Sistema

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

29-09-2003 19:07:22

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

Espero te sirva

UTECYBER

07-10-2003 20:10:15

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

30-10-2003 06:49:59

Cita:

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

29-09-2011 20:39:20

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

asi de facil

La franja horaria es GMT +2. Ahora son las 18:25:55.