[Malau]

Estuve buscando por el foro y no doy con la solución que necesito asique nuevamente recurro a uds en busca de ayuda. En mi aplicación estoy usando delphi7 e interbase y la cuestión es que necesito listar de mi bd a quienes cumplan años en determinada fecha, a esto lo solucioné más o menos así:

Código Delphi [-]
DecodeDate(DateTimePicker.Date, ac, mc, dc);
DM.IBDataSet.First;
while not DM.IBDataSet.Eof do
   begin
    DecodeDate(DM.IBDataSetFECHA.Value, an, mn, dn);
      if (dc=dn) and (mc=mn) then
        begin
          DM.IBQuery.SQL.Clear;
          DM.IBQuery.SQL.Add('select * from TABLA where FECHA =:valor ');
          DM.IBQuery.ParamByName('valor').AsDate:=EncodeDate(ac-Dm.IBDataSetEDAD.Value, mn, dn);
          DM.IBQuery.Open;
        end
      else DM.IBDataSet.Next;
   end;

El verdadero problema me surge cuando quiero listar a quienes cumplen años antes o despúes de la fecha que ingreso en un DateTimePicker.

Si alguien tiene algo para suguerir se lo agradeceré.