ส่งกลับ สองชั้น ที่ระบุอัตราผลตอบแทนภายในที่ปรับเปลี่ยนแล้วสําหรับชุดข้อมูลกระแสเงินสดเป็นงวด (การชําระเงินและใบเสร็จ)
ไวยากรณ์
MIRR( values (), finance_rate, reinvest_rate)
ไวยากรณ์ของฟังก์ชัน MIRR มีอาร์กิวเมนต์ดังนี้
|
อาร์กิวเมนต์ |
คำอธิบาย |
|
values () |
จำเป็น อาร์เรย์ของ Double ที่ระบุมูลค่ากระแสเงินสด อาร์เรย์ต้องมีอย่างน้อยหนึ่งค่าลบ (การชําระเงิน) และค่าบวกหนึ่งค่า (ใบเสร็จ) หนึ่งค่า |
|
finance_rate |
จำเป็น Double ที่ระบุอัตราดอกเบี้ยที่ชําระเป็นต้นทุนทางการเงิน |
|
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
