Fórum Calcular Datas #207338

Vamos Usar Uma Query.
em Algum Evento(Pode Ser No OnClic Do Botão, No OnShow Do Form Etc..),
Digite o Código Abaixo:
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.And(´Select *From NomedaSuaTabela´);
Query1.Sql.Add(´Where DataValidade <=:DataLimiteAcima´);
Query1.ParamByName(´DataLimiteAcima´).asdate:=(Date+2);
Query1.Sql.Add(´And DataValidade >= :DataLimiteAbaixo;
Query1.ParamByName(´DataLimiteBaixo´).asdate:=Date;
Query1.Prepare;
Query1.Open;
Query1.Prior; //Posiciona o Primeiro
While Not Query1.Eof Do
begin
ShowMessage(Query1CAMPOQUETEMONOMEDOPRODUTO.value);
Query1.Next; //Vai Para O Próximo....
end;

Obs: Considerações Finais. O Código Anterior Efetua Uma Seleção Nos Produtos Cujo Campo DataValidade(Que Deve Ser Do Tipo TDateTime),
Mostrando Como Resultado Todos Os Produtos Que Estão Vencendo Na Data Da Pesquisa(Date) Atê Dois Dias Após a Da Data Da Pesquisa.
Em Outras Palvras e Excluidos Os Produtos Cuja Data De Validade Tem Mais De Dois Dias De Diferença D a Data Da Pesquisa, e Todos Os [color=red:a87435dff3]Produtos Cuja Data De Validade Já Expirou[/color:a87435dff3]
*************************************************************
Existe Muitas Maneiras De Mostrar O Resultado Da Pesquisa. O Meu Código é o Mais Simples Poosível, Usei a Função ShowMessage Para Cada
Produto Que Atende os Parametros Da Pesquisa. Portanto, Modificação Neste Tipo De Informação Fica a Seu Critério. Pode Incluir o Resultado Num ListBox, Mum Memo, Numa Variável. Enfim, Fazer o Quer Quiser Com
o Resultado e Depois Exibir o Resultado Da Maneira Que Melhor Entender.