Filtro para relatório usado datas

[Recife]

Boa Noite, Estou precisando de ajuda para concluir um relatório em que existe um filtro para pesquisar os funcionários com data nascimento inicial(Dia/Mes) e data nascimento final(Dia/Mes). Abaixo demonstro o código, porém não esta funcionando.

Pois se fizer 01/10(inicio) e 30/10(fim) não retornar nada. Se for 01/10(inicio) e 01/10(fim) traz o registro neste intervalo.

Estou usando Delphi 6 e Firebird 2.0 .

var
   sDiaIni, sMesIni, sDiaFim, sMesfim: string;
   
   sDiaIni := copy(maskeditIni.text,1,2);
   sMesIni := copy(maskeditIni.text,4,2);
   sDiaFim := copy(maskeditFim.text,1,2);
   sMesFim := copy(maskeditFim.text,4,2);
   
   whit QryFuncionario do
   Begin
       close;
       sql.clear;
       sql.text := 'select * from tbfuncionarios '+
                       'where extract(day from dtnasfun)=:diaini '+
                       'and extract(month from dtnasfun)=:mesini '+
                       'and extract(day from dtnasfun)=:diafim '+
                       'and extract(month from dtnasfun)=:mesfim';
       open;
       if qryfuncionario.isempty then
       begin
           showmessagem('Não existe dados para esta pesquisa.');
           maskeditini.setfocus;
           exit;   
       end
       else
       begin
           frmrelanivfunc := tfrmrelanivfunc.create(application);
           try
              frmrelanivfunc.quickreport1.preview;
           finally
              freeandnill(frmrelanivfunc);
           end; 
       end;
                       
   end;

Editado Agosto 2, 2008 por Recife

[Recife]

Boa Noite, Estou precisando de ajuda para concluir um relatório em que existe um filtro para pesquisar os funcionários com data nascimento inicial(Dia/Mes) e data nascimento final(Dia/Mes). Abaixo demonstro o código, porém não esta funcionando.

Pois se fizer 01/10(inicio) e 30/10(fim) não retornar nada. Se for 01/10(inicio) e 01/10(fim) traz o registro neste intervalo.

Estou usando Delphi 6 e Firebird 2.0 .

var
   sDiaIni, sMesIni, sDiaFim, sMesfim: string;
   
   sDiaIni := copy(maskeditIni.text,1,2);
   sMesIni := copy(maskeditIni.text,4,2);
   sDiaFim := copy(maskeditFim.text,1,2);
   sMesFim := copy(maskeditFim.text,4,2);
   
   whit QryFuncionario do
   Begin
       close;
       sql.clear;
       sql.text := 'select * from tbfuncionarios '+
                       'where extract(day from dtnasfun)=:diaini '+
                       'and extract(month from dtnasfun)=:mesini '+
                       'and extract(day from dtnasfun)=:diafim '+
                       'and extract(month from dtnasfun)=:mesfim';
       open;
       if qryfuncionario.isempty then
       begin
           showmessagem('Não existe dados para esta pesquisa.');
           maskeditini.setfocus;
           exit;   
       end
       else
       begin
           frmrelanivfunc := tfrmrelanivfunc.create(application);
           try
              frmrelanivfunc.quickreport1.preview;
           finally
              freeandnill(frmrelanivfunc);
           end; 
       end;
                       
   end;

Conseguir obter a resposta para o sql acima, para quem possa interessar a forma correta seriá a seguinte:

sql.text := 'select * from tbfuncionarios '+
           'where extract(day from dtnasfun)>=:diaini '+
           'and extract(month from dtnasfun)>=:mesini '+
           'and extract(day from dtnasfun)<=:diafim '+
           'and extract(month from dtnasfun)<=:mesfim';

com isto dou o probelma com resolvido.