الدالة PPmt

إرجاع دفعة مزدوجة تحدد الدفعة الرئيسية لفترة معينة من الم الدوري استنادا إلى دفعات دورية ثابتة ومعدل فائدة ثابت.

بناء الجملة

PPmt ( rate, per, nper , pv [ ,fv ] [ ,type ] )

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

الوسيطة

الوصف

rate

مطلوبة. تحديد معدل الفائدة لكل فترة زمنية. على سبيل المثال، إذا حصلت على قرض بسيارة بمعدل نسبة مئوية سنوية (APR) من 10 بالمائة وتسدد دفعات شهرية، فإن المعدل لكل فترة هو 0.1/12 أو 0.0083.

لكل

مطلوبة. عدد صحيح يحدد فترة الدفع في النطاق من 1 إلى nper.

nper

مطلوبة. عدد صحيح يحدد العدد الإجمالي لفترات الدفعات في المدفع السنوي. على سبيل المثال، إذا كنت تسدد دفعات شهرية لقرض سيارة لمدة أربع سنوات، فإن مجموع فترات السداد لقرضك هو 4 * 12 (أو 48).

pv

مطلوبة. تحديد القيمة الحالية أو القيمة الحالية اليوم لسلسلة من المدفوعات أو الإيصالات المستقبلية. على سبيل المثال، عند استعارة أموال لشراء سيارة، يكون مبلغ القرض هو القيمة الحالية للدفعات الشهرية التي ستدفعها لشراء سيارة.

fv

اختياري. متغير يحدد القيمة المستقبلية أو الرصيد النقدي الذي تريده بعد أن تقوم بالدفعة النهائية. على سبيل المثال، تكون القيمة المستقبلية لقرض ما 0 دولارا أمريكيا لأنها قيمته بعد الدفعة النهائية. ومع ذلك، إذا كنت تريد توفير مبلغ 50000 دولار أمريكي على مدى 18 عاما للحصول على تعليم طفلك، فإن القيمة المستقبلية هي 50000 دولار. إذا تم حذفه، فيفترض أن 0.

type

اختياري. المتغير الذي يحدد وقت الدفعات المستحقة. استخدم 0 إذا كانت الدفعات مستحقة في نهاية فترة الدفع، أو استخدم 1 إذا كانت الدفعات مستحقة في بداية الفترة. إذا تم حذفه، فيفترض أن 0.

ملاحظات

إن المدفع السنوي هو سلسلة من الدفعات النقدية الثابتة التي تم تسديدها خلال فترة زمنية. يمكن أن تكون الموفرة الشهرية قرضا (مثل رهن المنزل) أو استثمارا (مثل خطة توفير شهرية).

يجب حساب الوسيطتين rate وnper باستخدام فترات الدفع المعبر عنها في الوحدات نفسها. على سبيل المثال، إذا تم حساب المعدل باستخدام الأشهر، فيجب أيضا حساب nper باستخدام الأشهر.

بالنسبة إلى كل الوسيطات، يتم تمثيل المبالغ النقدية المدفوعة (مثل الإيداعات في التوفير) بأرقم سالبة؛ يتم تمثيل المبالغ النقدية التي يتم تلقيها (مثل شيكات الأرباح) ب أرقام موجبة.

مثال استعلام

التعبير

النتائج

SELECT FinancialSample.*, PPMT([AnnualRate]/12,10,[TermInYears]*12,-[LoanAmount],0,0) AS INTPaid FROM FinancialSample;

إرجاع كافة الحقول من الجدول "FinancialSample"، وحساب المبلغ الأساسي المدفوع في "per"(10 في هذا المثال) من "LoanAmount" استنادا إلى "AnnualRate" و"TermInYears" وعرض النتائج في العمود INTPaid.

مثال VBA

ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية في Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدل إلى جانب "البحث" وأدخل مصطلحا واحدا أو أكثر في مربع البحث.

يستخدم هذا المثال الدالة PPmt لحساب مقدار المبلغ الذي يتم دفعه لفترة معينة كمهمة رئيسية عندما تكون جميع الدفعات ذات قيمة متساوية. فيما يلي معدل النسبة المئوية للفائدة لكل فترة (APR / 12)، وفترة الدفع التي يرغب فيها الجزء الأساسي (Period)، وإجمالي عدد الدفعات (TotPmts)، والقيمة الحالية أو رأس المال للقرض (PVal)، والقيمة المستقبلية للقرض (FVal)، وعدد يشير إلى ما إذا كانت الدفعة مستحقة في بداية فترة الدفع أو نهايتها (PayType).

Dim NL, TB, Fmt, FVal, PVal, APR, TotPmts, PayType, Payment, Msg, MakeChart, Period, P, I
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are made.
NL = Chr(13) & Chr(10) ' Define newline.
TB = Chr(9) ' Define tab.
Fmt = "###,###,##0.00" ' Define money format.
FVal = 0 ' Usually 0 for a loan.
PVal = InputBox("How much do you want to borrow?")
APR = InputBox("What is the annual percentage rate of your loan?")
If APR > 1 Then APR = APR / 100 ' Ensure proper form.
TotPmts = InputBox("How many monthly payments do you have to make?")
PayType = MsgBox("Do you make payments at the end of month?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
Payment = Abs(-Pmt(APR / 12, TotPmts, PVal, FVal, PayType))
Msg = "Your monthly payment is " & Format(Payment, Fmt) & ". "
Msg = Msg & "Would you like a breakdown of your principal and "
Msg = Msg & "interest per period?"
MakeChart = MsgBox(Msg, vbYesNo) ' See if chart is desired.
If MakeChart <> vbNo Then
If TotPmts > 12 Then MsgBox "Only first year will be shown."
Msg = "Month Payment Principal Interest" & NL
For Period = 1 To TotPmts
If Period > 12 Then Exit For ' Show only first 12.
P = PPmt(APR / 12, Period, TotPmts, -PVal, FVal, PayType)
P = (Int((P + .005) * 100) / 100) ' Round principal.
I = Payment - P
I = (Int((I + .005) * 100) / 100) ' Round interest.
Msg = Msg & Period & TB & Format(Payment, Fmt)
Msg = Msg & TB & Format(P, Fmt) & TB & Format(I, Fmt) & NL
Next Period
MsgBox Msg ' Display amortization table.
End If

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

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

هل كانت المعلومات مفيدة؟

×