Egy dupla értéket ad eredményül, amely megadja egy befektetés belső megtérülési rátáját egy adott sorozatra (kifizetések és bevételek).
Szintaxis
BMR(értékek () [, becslés ] )
A BMR függvény szintaxisa az alábbi argumentumokat foglalja magában:
| Argumentum | Leírás: |
|---|---|
| értékek () | Kötelező. Double típusú értékekből álló tömb, amely megadja a pénzmozgások értékét. A tömbben kell lennie legalább egy negatív (kifizetés) és egy pozitív (bevétel) értéknek |
| becslés | Nem kötelező. A BMR becslése szerint eredményül adott értéket megadó variant. Ha nincs megadva, akkor a becsült érték 0,1 (10 százalék). |
Megjegyzések
A belső megtérülési ráta egy rendszeres időközönként történő kifizetésekből és bevételekből álló befektetés után kapott kamatláb.
A BMR függvény az értékeknek a tömbben elfoglalt sorrendje alapján határozza meg a kifizetések és a bevételek sorrendjét. Ügyeljen arra, hogy a kifizetések és bevételek megfelelő sorrendben legyenek megadva. Az egyes időszakok pénzmozgását nem kell rögzíteni, mint az annuitás esetében.
A belső megtérülési rátát iterációval számítja ki a program. A becslés értékétől indulva az BMR mindaddig ismétli a számításokat, míg az eredmény 0,00001 százalékosnál pontosabb nem lesz. Ha az BMR 20 próbálkozás után sem talál eredményt, sikertelen lesz.
Példa
Megjegyzés
A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Ebben a példában a BMR függvény a tömbben Values()található 5 pénzáramlás belső megtérülési rátáját adja eredményül. Az első tömbelem egy vállalkozásindítási költségeket jelentő negatív pénzáramlás. A fennmaradó 4 pénzáramlás pozitív pénzáramlást jelent a következő 4 évre.
Guess A becsült belső megtérülési ráta.
Dim Guess, Fmt, RetRate, Msg
Static 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) = 25000
Values(3) = 28000 : Values(4) = 31000
' Calculate internal rate.
RetRate = IRR(Values(), Guess) * 100
Msg = "The internal rate of return for these " & _
"five cash flows is "
Msg = Msg & Format(RetRate, Fmt) & " percent."
MsgBox Msg ' Display internal return rate.