Mengembalikan Double yang menentukan tingkat pengembalian internal yang dimodifikasi untuk serangkaian aliran kas berkala (pembayaran dan tanda terima).
Sintaks
MIRR( values (), finance_rate, reinvest_rate)
Sintaks fungsi MIRR memiliki argumen ini:
|
Argumen |
Deskripsi |
|
values () |
Diperlukan. Array Ganda menentukan nilai arus kas. Array harus berisi setidaknya satu nilai negatif (pembayaran) dan satu nilai positif (penerimaan). |
|
finance_rate |
Diperlukan. Ganda menentukan suku bunga yang dibayarkan sebagai biaya pembiayaan. |
|
reinvest_rate |
Diperlukan. Ganda menentukan suku bunga yang diterima pada keuntungan dari reinvestasi kas. |
Keterangan
Tingkat pengembalian internal yang dimodifikasi adalah tingkat pengembalian internal ketika pembayaran dan penerimaan dibiayai dengan tarif yang berbeda. Fungsi MIRR memperhitungkan biaya investasi (finance_rate) dan suku bunga yang diterima pada reinvestasi kas (reinvest_rate).
Argumen finance_rate dan reinvest_rate adalah persentase yang dinyatakan sebagai nilai desimal. Misalnya, 12 persen dinyatakan sebagai 0,12.
Fungsi MIRR menggunakan urutan nilai dalam array untuk menginterpretasikan urutan pembayaran dan tanda terima. Pastikan memasukkan nilai pembayaran dan penerimaan dalam urutan yang tepat.
Contoh
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan fungsi MIRR untuk mengembalikan tingkat pengembalian internal yang dimodifikasi untuk serangkaian arus kas yang terdapat dalam array Values(). LoanAPR mewakili bunga pembiayaan, dan InvAPR mewakili suku bunga yang diterima pada reinvestasi.
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
