Ir al contenido


Foto

Necesito saber la hora de la Computadora


  • Por favor identifícate para responder
4 respuestas en este tema

#1 river_1

river_1

    Newbie

  • Miembros
  • Pip
  • 2 mensajes

Escrito 20 diciembre 2009 - 01:56

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

#2 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4.107 mensajes
  • LocationMadrid - España

Escrito 20 diciembre 2009 - 05:45

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

Mira este sencillo ejemplo:



delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3.   Button1.Caption := TimeToStr(Time);
  4. end;



Saludos.

Archivos adjuntos


  • 0

#3 seoane

seoane

    Advanced Member

  • Administrador
  • 1.259 mensajes
  • LocationEspaña

Escrito 20 diciembre 2009 - 05:49

Pues con la función Time:


delphi
  1. var
  2.   Hora: TDateTime;
  3. begin
  4.   Hora:= Time;
  5. 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
  1. var
  2.   Hora: TDateTime;
  3. begin
  4.   Hora:= Time;
  5.   if Hora > EncodeTime(15,0,0,0) then
  6.   begin
  7.     // Aqui el proceso
  8.     ShowMessage('Ya es la hora');
  9.   end;
  10. end;


  • 0

#4 river_1

river_1

    Newbie

  • Miembros
  • Pip
  • 2 mensajes

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...
  • 0

#5 Delphius

Delphius

    Advanced Member

  • Administrador
  • 6.295 mensajes
  • LocationArgentina

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,
  • 0




IP.Board spam blocked by CleanTalk.