Tagastab väärtuse Kahekordne, mis määrab perioodiliste rahavoogude (maksete ja sissetulekute) sarja muudetud sisemise tasuvusmäära.
Süntaks
MIRR( values (); finance_rate; reinvest_rate)
Funktsiooni MIRR süntaksil on järgmised argumendid.
|
Argument |
Kirjeldus |
|
väärtused () |
Nõutav. Rahavooväärtusi täpsustava kahekordse massiiv. Massiivis peab sisalduma vähemalt üks negatiivne väärtus (makse) ja üks positiivne väärtus (sissetulek). |
|
finance_rate |
Nõutav. Topelttäpsusega arv, mis määratleb rahastamise kuluna makstud intressimäära. |
|
reinvest_rate |
Nõutav. Double specifying interest rate received on gains from cash reinvestment. |
Kommentaarid
Muudetud sisemine tasuvusmäär on sisemine tasuvusmäär, kui makseid ja sissetulekuid rahastatakse erinevate määradega. Funktsioon MIRR võtab arvesse nii investeeringu maksumust (finance_rate) kui ka raha taasinvesteerimisel saadud intressimäära (reinvest_rate).
Argumendid finance_rate ja reinvest_rate on kümnendväärtustena väljendatud protsendid. Näiteks 12 protsenti väljendatakse kujul 0,12.
Funktsioon MIRR kasutab maksete ja sissetulekute järjestuse tõlgendamiseks väärtuste järjestust massiivis. Sisestage maksete ja sissetulekute väärtused kindlasti õiges järjestuses.
Näide
Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.
Selles näites kasutatakse funktsiooni MIRR massiivis Values()sisalduva rahavoo modifitseeritud sisemise tasuvusmäära tagastamiseks. LoanAPR tähistab finantseerimisintressi ja InvAPR taasinvesteerimiselt saadud intressimäära.
Dim LoanAPR, InvAPR, Fmt, RetRate, Msg
Static Values(5) As Double ' Set up array.
LoanAPR = .1 ' Loan rate.
InvAPR = .12 ' Reinvestment rate.
Fmt = "#0.00" ' Define money 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 = MIRR(Values(), LoanAPR, InvAPR)
Msg = "The modified internal rate of return " & _
"for these five cash flows is"
Msg = Msg & Format(Abs(RetRate) * 100, Fmt) & "%."
' Display internal return rate.
MsgBox Msg
