Trả về một Double, xác định tỷ suất hoàn vốn nội bộ có điều chỉnh cho một chuỗi các dòng tiền định kỳ (thanh toán và thu nhập).
Cú pháp
MIRR(values (), finance_rate, reinvest_rate)
Cú pháp hàm MIRR có các đối số sau:
| Đối số | Mô tả |
|---|---|
| giá trị () | Bắt buộc. Mảng Double xác định các giá trị dòng tiền. Mảng phải chứa ít nhất một giá trị âm (một khoản thanh toán) và một giá trị dương (một hóa đơn). |
| finance_rate | Bắt buộc. Gấp đôi xác định lãi suất trả làm chi phí tài chính. |
| reinvest_rate | Bắt buộc. Gấp đôi xác định lãi suất nhận được từ lợi nhuận từ tái đầu tư tiền mặt. |
Chú thích
Tỷ suất hoàn vốn nội bộ có điều chỉnh là tỷ suất hoàn vốn nội bộ khi các khoản thanh toán và thu được tài trợ ở các mức khác nhau. Hàm MIRR xem xét cả chi phí của khoản đầu tư (finance_rate) và lãi suất nhận được khi tái đầu tư tiền mặt (reinvest_rate).
Các đối số finance_rate và reinvest_rate là các tỷ lệ phần trăm được thể hiện dưới dạng giá trị thập phân. Ví dụ, 12% được thể hiện là 0,12.
Hàm MIRR sử dụng trật tự của các giá trị trong mảng để diễn giải trật tự của các khoản thanh toán và hóa đơn. Hãy bảo đảm bạn nhập các giá trị thanh toán và biên lai của bạn theo đúng thứ tự.
Ví dụ
Lưu ý
Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Ví dụ này sử dụng hàm MIRR để trả về tỷ suất hoàn vốn nội bộ có sửa đổi cho một chuỗi dòng tiền chứa trong mảng Values().
LoanAPR thể hiện lãi tài chính và InvAPR thể hiện lãi suất nhận được khi tái đầu tư.
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