Fórum Calcular juros composto quot;Potenciação no FireBirdquot; #57022

Pessoal, achei uma maneira... criando uma UDF para calcular a potenciação... porém ela só me retorna 0
to colocando o codigo da dll que fiz mais a forma que ta sendo declarada a UDF por favor analizem e me digam onde to errando! desde já agradeço.

{ library TopUDFs;

uses
SysUtils, Classes, Controls, Math, Messages ;

Function Pot( base, expoente: double ):double; // Potenciação
begin
Result:= power( base, expoente);
end;

function fbPot(Vl ,Tx:Real; Tp:integer):Real; cdecl; Export ;
var
i,d:real;
begin
i := Tx/100;
d := Tp/30;
Result := Vl * Pot((1+i),D);
end;
{$R *.res}
exports
fbPot;
begin
end
}

{
DECLARE EXTERNAL FUNCTION POTENCIA
float,
float,
INTEGER
RETURNS float BY VALUE
ENTRY_POINT ´fbPot´ MODULE_NAME ´TopUDFs´;
}

sql = select potencia(100,5,90) from tab_conf
onde 100 = valor
5 = taxa
90 = N. dias

o que tem de errado? pois só retorna 0
:cry:

Pessoal só para informar eu resolvi... o problema da UDF!

  Qual foi a solução que vc encontrou ????