الدالة MIRR

ينطبق على
Access لـ Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

ترجع Double يحدد معدل العائد الداخلي المعدل لسلسلة من التدفقات النقدية الدورية (الدفعات والإيصالات).

بناء الجملة

MIRR(values (), finance_rate, reinvest_rate)

يحتوي بناء جملة الدالة MIRR على الوسيطات التالية:

الوسيطة الوصف
القيم () مطلوبة. صفيف مزدوج يحدد قيم التدفقات النقدية. يجب أن يحتوي الصفيف على قيمة سالبة واحدة على الأقل (دفعة) وقيمة موجبة واحدة (إيصال).
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