ฟังก์ชัน MIRR

นำไปใช้กับ
Access for Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

ส่งกลับ 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