mensagem de alerta com data

Delphi

24/01/2017

Tenho em um fomulario uma tabela com um campo DATA_VALIDADE

Gostaria de exiber assim que excutasse o progarama, uma mensagem de alerta, 30 dia antes do campo DATA_VALIDADE

ESTOU USANDO CLIENTDATASET COM O COMPONENTE ZEOS E O BANCO FIRE BIRD
Antonio Santos

Antonio Santos

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

24/01/2017

Declare:

uses
dateutils,

public
    { Public declarations }

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



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


Para Chamar a Função
procedure TForm1.Button1Click(Sender: TObject);
begin
Verifica_Vencimento(DateTimePicker1.Date,30); 
no lugar de DateTimePicker1.Date troque pelo campo da sua table
end;


Espero que ajude
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

24/01/2017

Função completa

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;


no lugar de DateTimePicker1.Date troque pelo campo da sua table

Chamando a função
Verifica_Vencimento(DateTimePicker1.Date,30);
GOSTEI 0
Antonio Santos

Antonio Santos

24/01/2017

obrigado, galera
GOSTEI 0
POSTAR