Fórum mensagem de alerta com data #574164

Declare:

uses
dateutils,

public
    { Public declarations }

  Function Verifica_Vencimento(Data_Vencimento:Tdate;Dias_Antecedencia:Integer):String;



Result:='Alerta '+IntToStr(Restantes)+', dias restantes';

procedure TForm1.Button1Click(Sender: TObject);
begin
Verifica_Vencimento(DateTimePicker1.Date,30); 
no lugar de DateTimePicker1.Date troque pelo campo da sua table
end;

Function TForm1.Verifica_Vencimento(Data_Vencimento:Tdate;Dias_Antecedencia:Integer):String;
Var Data_Simulada:Tdate;
Var Restantes:integer;
begin
Restantes:=0;

Data_Simulada:=now;

Restantes:=(DaysBetween(Data_Vencimento,
      Data_Simulada));

Result:='Alerta '+IntToStr(Restantes)+', dias restantes';

if (Restantes=Dias_Antecedencia)then
begin
ShowMessage(Result);
end;


Edit2.Text:=Result;
end;