Código Delphi [-]
NextAlert := RecodeTime(Now, Hourof(now)+1,0,0,0); Faltan := millisecondsBetween(NextAlert, Now);
if faltan >0 then
begin
timer1.interval := faltan;
timer1.Enabled := true;
end
Creo que las rutinas estan en la unidad DateUtils.
Un saludo
__________________
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: 04-05-2005 a las 10:48:54.
|