ฟังก์ชัน MIRR

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

ส่งกลับ สองชั้น ที่ระบุอัตราผลตอบแทนภายในที่ปรับเปลี่ยนแล้วสําหรับชุดข้อมูลกระแสเงินสดเป็นงวด (การชําระเงินและใบเสร็จ)

ไวยากรณ์

MIRR(values (), finance_rate, reinvest_rate)

ไวยากรณ์ของฟังก์ชัน MIRR มีอาร์กิวเมนต์ดังนี้

อาร์กิวเมนต์ คำอธิบาย
ค่า () จำเป็น อาร์เรย์ของ 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