CftClub.ru

[profuser1]

Подскажите как перевести код расчёта ПСК в дистрибьютиве на vba

-- Функция расчета значения по формуле
-- F(x) = [Сумма потока] / ((1 + Ek* i) * (1+i)^Qk)
function CalcFunc229(p_i number) return number
is
nResult_Fx number;
begin
nResult_Fx := 0;
nResult_Fx := (recMoneyStream.[SUMMA_FLOW] / ((1 + nNewFormulaEk*p_i)*((1 + p_i) ** nNewFormulaQk)));
return nResult_Fx;
end;

-- Функция расчета значения по формуле производной от начальной
-- F'(x) = - (([Сумма потока]*((i + 1)^(-Qk-1)) * (Qk*Ek*i + Qk + Ek*i +Ek)) / (Ek*i + 1)^2)
function CalcDerFunc229(p_i number) return number
is
nResult_dFx number;
begin
nResult_dFx := 0;
nResult_dFx := -((recMoneyStream.[SUMMA_FLOW] * ( (p_i + 1) ** (-nNewFormulaQk - 1) ) * ((nNewFormulaQk * nNewFormulaEk * p_i) + nNewFormulaQk + (nNewFormulaEk * p_i) + nNewFormulaEk) ) / ((nNewFormulaEk * p_i + 1) ** 2 ));
return nResult_dFx;
end;