Online Reference

Home

Microsoft Reference
Knowledge Developer Database Internet Resource Forum
VBA
Financial Function
ดาวน์โหลดคู่มือ

MIRR Function

VBA Function, ส่งออกค่าเป็นประเภทข้อมูล Double ของอัตราผลตอบแทนภายในแบบปรับปรุง (Modified internal rate of return) ของกระแสเงินสด (รายจ่ายและรายรับ)

ไวยากรณ์

MIRR(value(), finance_rate, reinvest_rate )

อากิวเมนต์ของฟังก์ชัน MIRR มีความหมาย คือ

ส่วน รายละเอียด
value บังคับ, เป็น array ของประเภทข้อมูล Double, ระบุมูลค่าของกระแสเงิน โดย array ต้องเก็บค่าอย่างน้อยเป็นค่าลบ 1 ค่า (รายจ่าย) และค่าบวก 1 ค่า (รายรับ)
finance_rate บังคับ, เป็นประเภทข้อมูล Double, ระบุอัตราดอกเบี้ยจ่ายที่เป็นต้นทุนทางการเงิน
reinvest_rate บังคับ, เป็นประเภทข้อมูล Double, ระบุอัตราดอกเบี้ยรับจากรายได้แล้วนำไปลงทุนซ้ำ

ลักษณะการประยุกต์

อัตราผลตอบแทนภายในแบบปรับปรุง เป็นอัตราผลตอบแทนภายในที่รายจ่ายและรายรับมีอัตราดอกเบี้ยคนละอัตรา ฟังก์ชัน MIRR มีความสำคัญในการคำนวณต้นทุนของการลงทุน (finance_rate) และอัตราดอกเบี้ยรับจากการลงทุนซ้ำ (reinvest_rate)

อากิวเมนต์ finance_rate และ reinvest_rate เป็นอัตราร้อยละที่แสดงในรูปของทศนิยม เช่น 12% จะแสดงด้วยค่า 0.12

ฟังก์ชัน MIRR ใช้ลำดับของ value ภายใน array ในการแปรความหมายลำดับของรายจ่ายและรายรับ ดังนั้นจึงต้องมั่นใจว่ารายจ่ายและรายรับอยู่ในลำดับที่ถูกต้อง

ดูเพิ่มเติม

ฟังก์ชัน DDB, ฟังก์ชัน IPMT, ฟังก์ชัน IRR, ฟังก์ชัน NPer, ฟังก์ชัน NPV, ฟังก์ชัน Pmt, ฟังก์ชัน PPmt, ฟังก์ชัน PV, ฟังก์ชัน Rate, ฟังก์ชัน SLN, ฟังก์ชัน SYD

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน MIRR ในการส่งออกค่าอัตราผลตอบแทนภายในปรับปรุงสำหรับกระแสเงินสดที่เก็บใน array ชื่อ Values() LoanAPR แสดงค่า finance_rate และ InvAPR แสดงค่า reinvest_rate

Dim LoanAPR, InvAPR, Fmt, RetRate, Msg

' กำหนด array
Static Values(5) As Double

' อัตราดอกเบี้ยเงินกู้
LoanAPR = .1
' อัตราดอกเบี้ยจากการลงทุนซ้ำ
InvAPR = .12
' กำหนดรูปแบบการเงิน
Fmt = "#0.00"
' ค่าใช้จ่ายในจัดตั้งธุรกิจ
Values(0) = -70000

' กระแสเงินสดเป็นบวกแสดงรายรับ 4 ปีในการทำธุรกิจ
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
' คำนวณอัตราผลตอบแทนภายใน
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) & "%."
' แสดงอัตราผลตอบแทนภายใน
MsgBox Msg