Връща стойност от тип Double, указваща вътрешната норма на печалба за последователност от периодични парични потоци (плащания и приходи).
Синтаксис
IRR( стойности () [, предположение ] )
Синтаксисът на функцията IRR има следните аргументи:
|
Аргумент |
Описание |
|
values () |
Задължителен. Масив от стойности от тип Double, задаващ стойности на паричен поток. Масивът трябва да съдържа поне една отрицателна стойност (плащане) и една положителна стойност (вземане). |
|
guess |
Незадължително. Стойност от тип Variant, която сте преценили, ще бъде върната от IRR. Ако предположение е пропуснато , 0,1 (10 процента). |
Забележки
Вътрешната норма на печалба е лихвеният процент, получен за инвестиция, състояща се от плащания и приходи, които се извършват през равни интервали.
Функцията IRR използва реда на стойностите в масива, за да интерпретира реда на плащанията и вземанията. Трябва да въведете стойностите на плащанията и вземанията в правилната им последователност. Паричният поток за всеки период не трябва да бъде фиксиран, както е за анюитет.
IRR се изчислява чрез итерация. Започвайки със стойността на предположение, IRR преминава циклично през изчислението, докато резултатът е точен в рамките на 0,00001 процента. Ако IRR не може да намери резултат след 20 опита, той е неуспешен.
Пример
Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
В този пример функцията IRR връща вътрешната норма на печалба за последователност от 5 парични потоци, съдържащи се в масива Values(). Първият елемент масив е отрицателен паричен поток, представящ разходите за стартиране на бизнес. Останалите 4 парични потоци представляват положителни парични потоци за следващите 4 години. Guess е прогнозната вътрешна норма на печалба.
Dim Guess, Fmt, RetRate, MsgStatic Values(5) As Double ' Set up array.Guess = .1 ' Guess starts at 10 percent.Fmt = "#0.00" ' Define percentage format.Values(0) = -70000 ' Business start-up costs.' Positive cash flows reflecting income for ' four successive years.Values(1) = 22000 : Values(2) = 25000Values(3) = 28000 : Values(4) = 31000' Calculate internal rate.RetRate = IRR(Values(), Guess) * 100Msg = "The internal rate of return for these " & _ "five cash flows is "Msg = Msg & Format(RetRate, Fmt) & " percent."MsgBox Msg ' Display internal return rate.
