SQL

assim

****
procedure aniversariantes(dia_inicio, dia_fim: tdatetime);
var
ano, mes, dia: word
begin
query.sql.text:= ´select * from cliente where (day(data_nascimento) between :dia_inicio and :dia_fim) and (month(data_nascimento) between :mes_inicio and :mes_fim)´;

decodedate(dia_inicio, ano, mes, dia);
query.parambyname(´dia_inicio´).asinteger:= dia;
query.parambyname(´mes_inicio´).asinteger:= mes;

decodedate(dia_fim, ano, mes, dia);
query.parambyname(´dia_fim´).asinteger:= dia;
query.parambyname(´mes_fim´).asinteger:= mes;
query.active:= true;
end;
****

num testei no delphi, mas deve funcionar

qq entre em contato

até