إرجاع مزدوج يحدد القيمة الحالية الصافية للاستثمار استنادا إلى سلسلة من التدفقات النقدية الدورية (المدفوعات والإيصالات) ومعدل الخصم.
بناء الجملة
NPV( rate, values ())
يحتوي بناء جملة الدالة NPV على هذه الوسيطات:
|
الوسيطة |
الوصف |
|
rate |
مطلوبة. تحديد مزدوج لمعدل الخصم على طول الفترة، يتم التعبير عنه كعدد عشري. |
|
القيم () |
مطلوبة. صفيف مزدوج يحدد قيم التدفق النقدي. يجب أن يحتوي الصفيف على قيمة سالبة واحدة على الأقل (دفعة) وقيمة موجبة واحدة (إيصال). |
ملاحظات
القيمة الحالية الصافية للاستثمار هي القيمة الحالية لسلسلة مستقبلية من المدفوعات والإيصالات.
تستخدم الدالة NPV ترتيب القيم داخل الصفيف لتفسير ترتيب المدفوعات والإيصالات. تأكد من إدخال قيم الدفع والإيصال بالتسلسل الصحيح.
يبدأ استثمار NPV قبل فترة واحدة من تاريخ أول قيمة للتدفق النقدي وينتهي بآخر قيمة تدفق نقدي في الصفيف.
يعتمد حساب القيمة الحالية الصافي على التدفقات النقدية المستقبلية. إذا حدث التدفق النقدي الأول في بداية الفترة الأولى، يجب إضافة القيمة الأولى إلى القيمة التي تم إرجاعها بواسطة NPV ويجب عدم تضمينها في قيم التدفق النقدي للقيم().
تشبه الدالة NPV الدالة PV (القيمة الحالية) باستثناء أن الدالة PV تسمح ببدء التدفقات النقدية إما في نهاية الفترة أو بدايةها. على عكس قيم التدفق النقدي NPV المتغيرة، يجب إصلاح التدفقات النقدية PV طوال الاستثمار.
مثال
ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA). لمزيد من المعلومات حول العمل مع VBA، حدد مرجع المطور في القائمة المنسدلة بجوار البحث وأدخل مصطلحا واحدا أو أكثر في مربع البحث.
يستخدم هذا المثال الدالة NPV لإرجاع القيمة الحالية الصافية لسلسلة من التدفقات النقدية المضمنة في الصفيف Values(). يمثلRetRate معدل العائد الداخلي الثابت.
Dim Fmt, Guess, RetRate, NetPVal, Msg
Static Values(5) As Double ' Set up array.
Fmt = "###,##0.00" ' Define money format.
Guess = .1 ' Guess starts at 10 percent.
RetRate = .0625 ' Set fixed internal rate.
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 net present value.
NetPVal = NPV(RetRate, Values())
Msg = "The net present value " & _
"of these cash flows is "
Msg = Msg & Format(NetPVal, Fmt) & "."
' Display net present value.
MsgBox Msg
