Como programar um Timer para executar uma ação todos os dias e verificar se já foi executado no dia de hoje
Estou desenvolvendo um serviço em Delphi e preciso programar um Timer que execute o serviço todos os dias as 23h, mas antes de executar ele precisa verificar se já foi executado no dia de hoje.
O serviço já está pronto mas nunca trabalhei com o componente Timer, se alguém puder por favor me dar uma luz, principalmente nessa segunda verificação.
O serviço já está pronto mas nunca trabalhei com o componente Timer, se alguém puder por favor me dar uma luz, principalmente nessa segunda verificação.
Gabriel
Curtidas 0
Respostas
Celso Lenon
12/08/2020
salve o dia na propriedade tag do timer.
if Now>StrToTime('23:00:00') then
begin
if Timer1.Tag<>Trunc(Now) then
begin
Timer1.Tag := Trunc(Now);
//executa o procedimento
end;
end;
GOSTEI 0