Filtro de data

bom, no IB ou FB seria::

select * from sua_tabela
where campo_data > current_date + 5


em outro banco, basta substituir o current_date pela variável corespondente que traz a data do sistema.


T+

para iniciar a consulta, para preparar as variaveis

procedure TForm2.BtConsultarClick(Sender: TObject);
begin
With QryConsultas Do
Begin
Close;
ParamByName(´VarDataI´).AsDate:=Data1.Date;
ParamByName(´VarDataF´).AsDate:=Data2.Date;
Prepare;
Open;
End;
if QryConsultas.RecordCount=0 then
Begin
ShowMessage(´Nenhum Processo foi Encontrado com esses Dados!´);
End;
BitBtn1.Enabled:=True;
end;

aqui esta a string para a tquery

SELECT D.´Nome do reclamado´,Count(E.NProcesso), Count(E.Sequencia)
FROM Cadastro.DB D, Andamento.DB E
WHERE E.Data Between :VarDataI and :VarDataF and
D.Processo = E.Nprocesso
GROUP BY D.´Nome do reclamado´
ORDER BY 2 desc, D.´Nome do reclamado´

boa sorte