Tema: objeto timer
Ver Mensaje Individual
  #30  
Antiguo 19-04-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 31
Lepe Va por buen camino
No he leido a fondo todos los mensaje, espero que esto sirva para algo.

El único problema que hay es que el Interval de un timer sólo puede aceptar un número en milisegundos, que equivale a 9 semanas (dia arriba, día abajo), por tanto:
Código Delphi [-]
uses DateUtils;

FechaAviso:Tdatetime
begin

if fechaAviso > Now then
begin
   if DaysBetween(fechaAviso, now) < 56 then // menos de  nueve semanas
     Timer1.Interval := MillisecondsBetween(fechaAviso, now)
   else 
     Timer1.interval := 55 * 24 * 60 * 60 * 1000
      // ponemos el timer para dentro de 55 días si el ordenador está
     // encendido 24 horas al día... si se apaga todos los días, se puede buscar
    // el cambio de fechas del ordenador y poner el timer en esa fecha. De 
   //  esta forma se chequea cada 24 horas los mensajes pendientes.

  Timer1.Enabled:= true;
end;

Por cierto, usa siempre Tdatetimes poniendo fecha y hora, así puedes hacer los cálculos de fechas y horas correctamente.

Carliviris das muy poca información en el hilo, todavía ni siquiera sé que estas intentando hacer, deberías replantearte el hilo y decir exactamente cuales son los objetivos del programa y como debe funcionar. Si lo hubieses hecho desde un principio, seguro que tendrías respuestas más claras y concisas.


Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.

Última edición por Lepe fecha: 19-04-2006 a las 13:29:22.
Responder Con Cita