оптимизация vba как часть оригинальной функции - PullRequest
Новая
       25

оптимизация vba как часть оригинальной функции

0 голосов
/ 04 июля 2019

Мне нужно выполнить оптимизацию в VBA.Я хотел бы получить его как часть функции.Как я могу это сделать?

Это моя функция: 

Function TirNoPer360(Cash, Dates As Range)

Dim i, n As Integer
Dim sum, rate, tolerance  As Double
Dim Inicio As Date
Dim rate as Variant

tolerance = 0.00001
Initial = Dates(1, 1)

sum = 0
For i = 1 To Cash.Rows.Count
    sum = sum + Cash(i) / ((1 + rate) ^ (Application.WorksheetFunction.Days360(Initial, Dates(i)) / 360))
Next i

TirNoPer360 = sum

End Function

Я хотел бы получить значение rate (используя алгоритм поиска корня), что составляет TirNoPer360 = 0.

Как я могу сделать это как часть этой функции?Любое руководство было бы полезно

...