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..
Necesito saber la hora de la Computadora
Comenzado por
river_1
, dic 20 2009 01:56
4 respuestas en este tema
#1
Escrito 20 diciembre 2009 - 01:56
#2
Escrito 20 diciembre 2009 - 05:45
Hola, river_1. Bienvenido a Delphiaccess, siéntete en tu casa.
Mira este sencillo ejemplo:
Saludos.
Mira este sencillo ejemplo:
delphi
procedure TForm1.Button1Click(Sender: TObject); begin Button1.Caption := TimeToStr(Time); end;
Saludos.
Archivos adjuntos
#3
Escrito 20 diciembre 2009 - 05:49
Pues con la función Time:
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; 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;
#4
Escrito 21 diciembre 2009 - 02:11
Haber ,dejenme pruebo las opciones antes descritas y con todo gusto les hare saber si me funciono..
Muchas gracias...
Muchas gracias...
#5
Escrito 21 diciembre 2009 - 11:54
Hola river_1,
Otra alternativa es disponer de una tarea programada para las 15:00 y dejar que el S.O solito ejecute dicho ejecutable.
Saludos,
Otra alternativa es disponer de una tarea programada para las 15:00 y dejar que el S.O solito ejecute dicho ejecutable.
Saludos,