Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Necesito saber la hora de la Computadora

Started by river_1 , Dec 20 2009 01:56 AM

Please log in to reply

4 replies to this topic

#1 river_1

Newbie

Miembros
2 posts

Posted 20 December 2009 - 01:56 AM

Buenas a todos ,soy nuevo en este foro ya que en el foro donde estaba lamentablemente cerro.
Mi pregunta y mi duda es como saber la hora de la computadora,estoy haciendo un sistema de punto de venta y necesito hacer un proceso especial despues de las 3 de la tarde.
Con que funcion lo puedo hacer??
Desde ya gracias..

0

Back to top

#2 escafandra

Advanced Member

Administrador
4107 posts

LocationMadrid - España

Posted 20 December 2009 - 05:45 AM

Hola, river_1. Bienvenido a Delphiaccess, siéntete en tu casa.

Mira este sencillo ejemplo:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption := TimeToStr(Time);
end;

Saludos.

Attached Files

1469_d6f15e0b9f844e78b213d8382e95711c7969842f.zip 194.16KB 0 downloads

0

Back to top

#3 seoane

Advanced Member

Administrador
1259 posts

LocationEspaña

Posted 20 December 2009 - 05:49 AM

Pues con la función Time:

delphi

var
  Hora: TDateTime;
begin
  Hora:= Time;
end;

Y para hacer lo que tu quieres puedes usar un TTimer que lo puedes encontrar en la paleta System. Pones su propiedad "Interval" en 30000 (30 segundos) y en su evento OnTimer pones algo como esto:

delphi

var
  Hora: TDateTime;
begin
  Hora:= Time;
  if Hora > EncodeTime(15,0,0,0) then
  begin
    // Aqui el proceso
    ShowMessage('Ya es la hora');
  end;
end;