Código Delphi
[-]var
MiFecha:TDate;
begin
MiFecha:=Date;
sql_vence.Active := False;
sql_vence.SQL.Clear;
sql_vence.Params.CreateParam(ftDate, 'hoy', ptInput);
sql_vence.ParamByName('hoy').AsDate := MiFecha;
sql_vence.SQL.Append('Select codcli from clientes');
sql_vence.SQL.Append('WHERE (EXTRACT(Month FROM fecha)) = (EXTRACT(Month FROM :hoy))');
sql_vence.SQL.Append(' AND (EXTRACT(Day FROM fecha)) = (EXTRACT(Day FROM :hoy))');
sql_vence.Active := true;
end;
Prueba con este cambio ya que Paradox no reconoce la sentencia Date en su SQL.
Un Saludo.