الدالة NPV

ترجع هذه القيمة قيمة مزدوجة تحدد القيمة الحالية الصافية للاستثمار استنادا إلى سلسلة من التدفقات النقدية الدورية (الدفعات والإيصالات) ومعدل الخصم.

بناء الجملة

NPV( rate, values ())

بناء جملة الدالة NPV على هذه الوسيطات:

الوسيطة

الوصف

rate

مطلوبة. تحديد معدل الخصم المزدوج خلال طول الفترة الزمنية، التي يتم التعبير عنها كعدل عشري.

values ()

مطلوبة. صفيف من تحديد قيم التدفق النقدي بشكل مزدوج. يجب أن يحتوي الصفيف على قيمة سالبة واحدة على الأقل (دفعة) وقيمة موجبة (إيصال).


ملاحظات

إن القيمة الحالية الصافية للاستثمار هي القيمة الحالية لسلسلة مستقبلية من المدفوعات والإيصالات.

تستخدم الدالة 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

هل تحتاج إلى مزيد من المساعدة؟

تعزيز مهارات Office
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider