Fórum Como procurar os aniversariantes em intervalo de datas? #189666

Ola pessoal estou com um probleminha aqui, eu quero procurar os aniversariantes por um intervalo de datas que eu especificar ok? os fontes a seguinte me buscam as informações corretamente eu poderia adapta-la para buscar meus aniversariantes, mas o problema é o seguinte o formato da data de anirversario é DD/MM/AAAA nos fontes abaixo ele buscaria da mesma maneira DD/MM/AAAA que não me serviria os fontes deveriam buscar apenas DD/MM assim me proporcionaria o desejado. Se alguem puder me dar uma dicazinha fico extremamente agradecido.

procedure tform_nomeados.buscageral;
var
Inicio,Final:string;

begin
If edit2.Text < edit1.text Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
edit2.text := edit1.text;
end
Else
begin
Inicio := (edit1.text);
Final := (edit2.text);

with form_principal.tb_servidor do
begin
form_principal.Query1.SQL.Clear;
form_principal.Query1.SQL.Add(´SELECT * FROM servidor WHERE nomeacao >= :pInicial and nomeacao<= :pFinal´);
form_principal.Query1.ParamByName(´pinicial´).AsDateTime := StrToDate(Inicio);
form_principal.Query1.ParamByName(´pfinal´).AsDateTime := StrToDate(Final);
form_principal.Query1.Prepare;
form_principal.Query1.Open;
form_rel_busca.QuickRep1.Preview;
end;
close;
end;
end;