הפונקציה PPmt

חשוב: מאמר זה תורגם בתרגום מכונה, ראה כתב ויתור. תוכל למצוא את הגרסה באנגלית של המאמר כאן לעיונך.

החזרת כפול המציין את התשלום על הקרן בתקופה נתונה של קצבה שנתית בהתבסס על תשלומים תקופתיים קבועים ושיעור ריבית קבוע.

תחביר

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

תחביר הפונקציה PPmt כולל את הארגומנטים הבאים:

ארגומנט

תיאור

rate

נדרש. Double ציון שיעור הריבית לתקופה. לדוגמה, אם קיבלת הלוואה לרכישת רכב בשיעור אחוז שנתי (APR) של 10 אחוזים ואתה מבצע תשלומים חודשיים, השיעור לכל תקופה הוא 0.1/12, או 0.0083.

לפי

נדרש. מספר שלם המציין את תקופת התשלום בטווח של 1 עד nper.

nper

נדרש. מספר שלם שמציין המספר הכולל של תקופות תשלום השנתית. לדוגמה, אם אתה מבצע תשלומים חודשיים על הלוואה רכב לארבע שנים, בהלוואה יש סכום כולל של 4 * 12 (או 48) תקופות תשלום.

pv

נדרש. כפול המציין ערך נוכחי, או ערך היום, של סידרה של תשלומים עתידיים או קבלות. לדוגמה, כאשר אתה לווה כסף לקניית מכונית, סכום ההלוואה הוא הערך הנוכחי למלווה של התשלומים המכונית חודשי שתיצור.

fv

אופציונלי. משתנה המציין ערך עתידי או יתרת מזומנים רצויה לאחר ביצוע התשלום האחרון. לדוגמה, הערך העתידי של הלוואה הוא $0 משום שזה הערך שלה לאחר התשלום האחרון. עם זאת, אם ברצונך לחסוך $50,000 לאורך 18 שנים לחינוך ילדך, הסכום $50,000 הוא הערך העתידי. אם הוא מושמט, מניחים כי הערך הוא 0.

type

אופציונלי. משתנה המציין את מועד התשלומים. השתמש בערך 0 אם התשלומים נועדו לתשלום בסוף תקופת התשלום, או השתמש בערך 1 אם התשלומים נועדו לתשלום בתחילת התקופה. אם הוא מושמט, מניחים כי הערך הוא 0.


הערות

קצבה שנתית היא סידרה של תשלומים קבועים במזומן המבוצעת לאורך פרק זמן מסוים. קצבה שנתית יכולה להיות הלוואה (כגון משכנתא) או השקעה (כגון תוכנית חיסכון חודשי).

יש לחשב את הארגומנטים rate ו- nper באמצעות תקופות תשלום המבוטאות באותן יחידות. לדוגמה, אם rate מחושב באמצעות חודשים, יש לחשב גם את nper באמצעות חודשים.

עבור כל הארגומנטים, כסף שאתה משלם (כגון הפקדות לחיסכון) מיוצג באמצעות מספרים שליליים; כסף שאתה מקבל (כגון המחאות דיבידנדים) מיוצג באמצעות מספרים חיוביים.

דוגמה

הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול 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

הערה: כתב ויתור בנוגע לתרגום מכונה: מאמר זה תורגם על-ידי מערכת מחשב, ללא התערבות אדם. Microsoft מציעה את תרגומי המכונה כדי לסייע למשתמשים שאינם דוברי אנגלית ליהנות מתוכן בנושא מוצרים, שירותים וטכנולוגיות של Microsoft. מכיוון שהמאמר תורגם על-ידי מכונה, הוא עלול להכיל שגיאות באוצר המילים, בתחביר או בדקדוק.

הרחב את הכישורים שלך
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×