MIRR 函数的示例(VBA)

gemini527

MIRR 函数示例本示例
使用 MIRR 函数计算由数组 Values() 内所含一系列期间现金流量之修正过的实质报酬率。
LoanAPR 代表财务成本上的支付利息利率，而 InvAPR 则代表由现金再投资上所得到的利息利率。
Dim LoanAPR, InvAPR, Fmt, RetRate, Msg
Static Values(5) As Double   ' 声明数组。
LoanAPR = .1   ' 贷款利率。
InvAPR = .12   ' 再投资利率。
Fmt = "#0.00"   ' 定义金额格式。
Values(0) = -70000   ' 事业初始成本。
' 正数现金流代表连续四年的收入状况。
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
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) & "%."
MsgBox Msg   ' 显示实质报酬率。

colin_duan

学习学习一下。thank you very much!

colin_duan

学习学习一下。thank you very much!