Аналог функции ЧИСТВНДОХ

[Mint86]

Коллеги, хотелось бы иметь функцию ЧИСТВНДОХ из пакета анализа на VBA (на случай если надстройка пакет анализа изначально не установлена на компьютере). Кто знает как можно вытащить код данной функции из файлов надстроек пакета анализа? Функция на английском XIRR. Описание функции здесь.

[maksim_serg]

в справке VBA: WorksheetFunction -- Xirr. там все написано

[Mint86]

Сообщение от maksim_serg

в справке VBA: WorksheetFunction -- Xirr. там все написано

А что там написано то? Нужен макрос который дает такой же результат как функция XIRR. Зачастую бывает что Excel установлен урезанный и пакета анализа там нет.

Попытался посмотреть код в файлах надстройках:
ANALYS32.XLL
ATPVBAEN.XLA
FUNCRES.XLA
PROCDB.XLA

В файлах ATPVBAEN.XLA и FUNCRES.XLA ничего путного нет.
Есть подозрение что код хранится в файле ANALYS32.XLL но как его посмотреть?

[Mint86]

Вот исходный код данной функции на VB 6.0
буду признателен если знающие люди переведут сей код на vba...

[maksim_serg]

не понятно, что это за функция такая, но судя по справке это должно выглядеть так:

Public Function что_то_из_экономики(Значения As Range, Даты As Range, Предп As Single)
If Значения.Rows.Count = Даты.Rows.Count And Значения.Rows(1) < 0 Then
p = 0
    For i = 1 To Значения.Rows.Count
           p = p + Значения.Rows(i) / ((1 + Предп) ^ ((Даты.Rows(i) - Даты.Rows(1)) / 365))
    Next i
If p < 0 Then
    Do
        Предп = Предп - 0.001: p = 0 'где 0.001 - точность результата
            For i = 1 To Значения.Rows.Count
                   p = p + Значения.Rows(i) / ((1 + Предп) ^ ((Даты.Rows(i) - Даты.Rows(1)) / 365))
            Next i
    Loop While p <= 0
Else
    Do
        Предп = Предп + 0.001: p = o 'где 0.001 - точность результата
            For i = 1 To Значения.Rows.Count
                   p = p + Значения.Rows(i) / ((1 + Предп) ^ ((Даты.Rows(i) - Даты.Rows(1)) / 365))
            Next i
    Loop While p >= 0
End If
что_то_из_экономики = Предп
Else: что_то_из_экономики = "#ЧИСЛО!"
End If
End Function

[Mint86]

maksim_serg, спасибо! Работает, но почему-то дает чуть-чуть разный результат по сравнению с функцией ЧИСТВНДОХ. Для функции ЧИСТВНДОХ не обязательно указывать предп.

Предп — это предполагаемое значение результата функции ЧИСТВНДОХ. В большинстве случаев нет необходимости задавать аргумент предп для функции ЧИСТВНДОХ. Если это аргумент опущен, то предп полагается равным 0,1 (10 процентов).

В вашей функции я так понял надо обязательно задавать предп, иначе получаем ошибку. Результат совпадает если указать в качестве предп 1.

Во вложенном файле пример с расчетами, буду благодарен если вы осуществите колибровку..

[maksim_serg]

Сообщение от maksim_serg

Предп = Предп + 0.001: p = o 'где 0.001 - точность результата

чем ближе шаг изменения Предп (0.001) к нулю, тем точнее получается результат.НО! -тем меньше скорость выполнения функции. для моего ноутбука шаг = 0.001 - предел, дальше зависает...
а по поводу необходимости Предп, можно поставить условие в начале:
если Предп не задано, то Предп=0

[Mint86]

maksim_serg, огромное спасибо! увеличил p=0.00001 в принципе работает и условие если Предп не задан то Предп=0,1 чтобы было сходство с функцией.