Fórum Criar alertas de vencimentos de certificados digitais. #559983

Ed_Antecedencia: TEdit; // Esse edit você insere a quantidade de dias para receber o aviso com antecedência

Vencimento: TDateTimePicker; // Esse date Picker você informará da data de vencimento

Verificar: TButton;



procedure Tseufrom.VerificarClick(Sender: TObject);
var Data_Atual:tdatetime;
var Data_validada:tdatetime;

begin
if Ed_Antecedencia.Text='' then
begin
Ed_Antecedencia.Text:='0';
end;

Data_Atual:= Date;
Data_validada:=Data_Atual+StrToInt(Ed_Antecedencia.Text);


if DateToStr(Data_validada)= DateToStr(Vencimento.Date) then
begin
ShowMessage('Sua rotina de aviso');// Pode criar um procedimento para enviar um email!
end;