Mengembalikan Double yang menentukan tingkat pengembalian internal untuk seri aliran kas berkala (pembayaran dan tanda terima).
Sintaks
IRR( values () [, guess ] )
Sintaks fungsi IRR 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). |
|
perkiraan |
Opsional. Varian yang menentukan nilai yang Anda perkirakan akan dikembalikan oleh IRR. Jika dihilangkan, perkiraan adalah 0,1 (10 persen). |
Keterangan
Tingkat pengembalian internal adalah suku bunga yang diterima untuk investasi yang terdiri dari pembayaran dan penerimaan yang terjadi pada interval reguler.
Fungsi IRR menggunakan urutan nilai dalam array untuk menginterpretasikan urutan pembayaran dan tanda terima. Pastikan memasukkan nilai pembayaran dan penerimaan dalam urutan yang tepat. Arus kas untuk setiap periode tidak harus diperbaiki, karena untuk anuitas.
IRR dihitung dengan perulangan. Dimulai dengan nilai perkiraan, IRR menelusuri perhitungan hingga hasilnya akurat hingga dalam 0,00001 persen. Jika IRR tidak dapat menemukan hasil setelah 20 percobaan, IRR gagal.
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.
Dalam contoh ini, fungsi IRR mengembalikan tingkat pengembalian internal untuk rangkaian 5 arus kas yang terdapat dalam array Values(). Elemen array pertama adalah arus kas negatif yang mewakili biaya start-up bisnis. Sisa 4 arus kas mewakili arus kas positif untuk 4 tahun ke depan. Guess adalah perkiraan tingkat pengembalian internal.
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.
