ส่งกลับ Double ที่ระบุอัตราผลตอบแทนภายในที่ปรับค่าแล้วสําหรับชุดข้อมูลกระแสเงินสดเป็นงวด (การชําระเงินและใบเสร็จรับเงิน)
ไวยากรณ์
MIRR(values (), finance_rate, reinvest_rate)
ไวยากรณ์ของฟังก์ชัน MIRR มีอาร์กิวเมนต์ดังนี้
| อาร์กิวเมนต์ | คำอธิบาย |
|---|---|
| ค่า () | จำเป็น อาร์เรย์ของ Double ที่ระบุ ค่ากระแสเงินสด อาร์เรย์ต้องมีอย่างน้อยหนึ่งค่าลบ (การชําระเงิน) และค่าบวกหนึ่งค่า (ใบเสร็จ) |
| finance_rate | จำเป็น สองเท่าที่ระบุอัตราดอกเบี้ยที่จ่ายเป็นต้นทุนทางการเงิน |
| reinvest_rate | จำเป็น สองเท่าที่ระบุ อัตราดอกเบี้ยที่ได้รับจากกําไรจากการลงทุนต่อเงินสด |
ข้อสังเกต
อัตราผลตอบแทนภายในที่ปรับค่าแล้วคืออัตราผลตอบแทนภายในเมื่อการชําระเงินและใบเสร็จรับเงินได้รับการจัดหาในอัตราที่แตกต่างกัน ฟังก์ชัน MIRR พิจารณาทั้งต้นทุนของการลงทุน (finance_rate) และอัตราดอกเบี้ยที่ได้รับจากการลงทุนใหม่ด้วยเงินสด (reinvest_rate)
อาร์กิวเมนต์ finance_rate และ reinvest_rate เป็นเปอร์เซ็นต์ที่แสดงเป็นค่าทศนิยม ตัวอย่างเช่น 12 เปอร์เซ็นต์จะแสดงเป็น 0.12
ฟังก์ชัน MIRR ใช้ลําดับของค่าภายในอาร์เรย์เพื่อแปลลําดับของการชําระเงินและใบเสร็จรับเงิน โปรดแน่ใจว่าคุณใส่การชําระเงินและใบเสร็จของคุณตามลําดับถูกต้อง
ตัวอย่าง
หมายเหตุ
ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงนักพัฒนาในรายการ ดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชัน MIRR เพื่อส่งกลับอัตราผลตอบแทนภายในที่ปรับค่าแล้วสําหรับชุดข้อมูลกระแสเงินสดที่อยู่ในอาร์เรย์Values()
LoanAPR แสดงถึงดอกเบี้ยทางการเงิน และ InvAPR แสดงถึงอัตราดอกเบี้ยที่ได้รับจากการลงทุนซ้ํา
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