Επιστρέφει Double που καθορίζει την πληρωμή του κεφαλαίου για μια συγκεκριμένη περίοδο μιας προσόδου με βάση περιοδικές, σταθερές πληρωμές και σταθερό επιτόκιο.
Σύνταξη
PPmt(rate, per, nper, pv[, fv[, type]])
Η συνάρτηση PPmt έχει τα εξής επώνυμα ορίσματα:
Μέρος Περιγραφή
rate Απαιτείται. Double που καθορίζει το επιτόκιο ανά περίοδο. Για παράδειγμα, εάν πάρετε δάνειο για αγορά αυτοκινήτου με ετήσιο ποσοστό 10 τοις εκατό και πραγματοποιείτε μηνιαίες πληρωμές, το επιτόκιο ανά περίοδο είναι 0.1/12, ή 0.0083.
per Απαιτείται. Integer που καθορίζει την περίοδο πληρωμής στο διάστημα από 1 έως nper.
nper Απαιτείται. Integer που καθορίζει τον συνολικό αριθμό περιόδων πληρωμής στην πρόσοδο. Για παράδειγμα, εάν πραγματοποιείτε μηνιαίες πληρωμές για ένα τετραετές δάνειο για αγορά αυτοκινήτου, το δάνειό σας έχει συνολικά 4 * 12 (ή 48) περιόδους πληρωμής.
pv Απαιτείται. Double που καθορίζει την παρούσα αξία (σημερινή αξία), μιας σειράς από μελλοντικές πληρωμές ή εισπράξεις. Για παράδειγμα, όταν δανείζεστε χρήματα για να αγοράσετε αυτοκίνητο, το ποσό του δανείου είναι η παρούσα αξία, για το δανειστή, των μηνιαίων πληρωμών που θα πραγματοποιείτε για το αυτοκίνητο.
fv Προαιρετικό. Variant που καθορίζει την μελλοντική αξία ή το χρηματικό υπόλοιπο που θέλετε αφού θα έχει πραγματοποιηθεί και η τελευταία πληρωμή. Για παράδειγμα, η μελλοντική αξία ενός δανείου είναι $0 διότι αυτή είναι η αξία του μετά την τελευταία πληρωμή. Ωστόσο, εάν θέλετε να αποταμιεύσετε $50,000 σε διάστημα 18 ετών για την εκπαίδευση των παιδιών σας, τότε η μελλοντική αξία είναι $50,000. Εάν παραλειφθεί, θεωρείται ότι είναι 0.
type Προαιρετικό. Variant που καθορίζει πότε αναμένονται οι πληρωμές. Χρησιμοποιήστε το 0 εάν οι πληρωμές πρέπει να γίνονται στο τέλος κάθε περιόδου πληρωμής, ή χρησιμοποιήστε το 1 εάν οι πληρωμές πρέπει να γίνονται στην αρχή κάθε περιόδου. Εάν παραλειφθεί, θεωρείται ότι είναι 0.
Παρατηρήσεις
Πρόσοδος είναι μια σειρά από σταθερές πληρωμές που πραγματοποιούνται στη διάρκεια μιας χρονικής περιόδου. Η πρόσοδος μπορεί να είναι δάνειο (π.χ. στεγαστικό δάνειο) ή επένδυση (π.χ. πλάνο μηνιαίας αποταμίευσης).
Τα ορίσματα rate και nper πρέπει να υπολογιστούν με χρήση των περιόδων πληρωμών εκφρασμένων στις ίδιες μονάδες. Για παράδειγμα, εάν το όρισμα rate υπολογίζεται σε μήνες, το όρισμα nper πρέπει επίσης να υπολογιστεί σε μήνες.
Για όλα τα ορίσματα, οι εκταμιεύσεις (όπως καταθέσεις σε αποταμιεύσεις) αναπαριστώνται με αρνητικούς αριθμούς. Οι εισπράξεις (όπως επιταγές μερισμάτων) αναπαριστώνται με θετικούς αριθμούς.
Στο παράδειγμα αυτό χρησιμοποιείται η συνάρτηση PPmt για να υπολογιστεί το μέρος μιας πληρωμής, για μια συγκεκριμένη περίοδο, που αποτελεί χρεολύσιο, όταν όλες οι πληρωμές έχουν ίση αξία. Δίνονται το επιτόκιο ανά περίοδο (Επιτόκιο / 12), η περίοδος πληρωμών για την οποία επιθυμείτε το χρεολύσιο (
Περίοδος), ο συνολικός αριθμός πληρωμών (Αρ_πληρωμών), η παρούσα αξία ή το αρχικό κεφάλαιο του δανείου (Αξία1), η μελλοντική αξία του δανείου (Αξία2
) και ένας αριθμός που δηλώνει αν η πληρωμή πραγματοποιείται στην αρχή ή στο τέλος της κάθε περιόδου πληρωμής (Τύπος_πληρωμής).
Dim Γραμμή, TB, Μορφή, Αξία1, Αξία2, Επιτόκιο, Αρ_πληρωμών, Τύπος_πληρωμής, Πληρωμή, Μήνυμα, Διάγραμμα, Περίοδος, Χρεολύσιο, Τόκος
Const ΤΕΛΟΣ_ΠΕΡΙΟΔΟΥ = 0, ΑΡΧΗ_ΠΕΡΙΟΔΟΥ = 1 ' Πότε πραγματοποιούνται οι πληρωμές.
Γραμμή = Chr(13) & Chr(10) ' Ορισμός νέας γραμμής.
TB = Chr(9) ' Ορισμός Tab.
Μορφή = "###,###,##0.00" ' Ορισμός μορφής χρήματος.
Αξία2 = 0 ' Συνήθως 0 για δάνειο.
Αξία1 = InputBox("Πόσα χρήματα θέλετε να δανειστείτε;")
Επιτόκιο = InputBox("Ποιο είναι το ετήσιο επιτόκιο του δανείου σας;")
If Επιτόκιο > 1 Then Επιτόκιο = Επιτόκιο / 100 ' Εξασφάλιση κατάλληλης μορφής.
Αρ_πληρωμών = InputBox("Πόσες μηνιαίες πληρωμές πρέπει να πραγματοποιήσετε;")
Τύπος_πληρωμής = MsgBox("Πραγματοποιείτε τις πληρωμές στο τέλος κάθε μήνα;", vbYesNo)
If Τύπος_πληρωμής = vbNo Then Τύπος_πληρωμής = ΑΡΧΗ_ΠΕΡΙΟΔΟΥ Else Τύπος_πληρωμής = ΤΕΛΟΣ_ΠΕΡΙΟΔΟΥ
Πληρωμή = Abs(-Pmt(Επιτόκιο / 12, Αρ_πληρωμών, Αξία1, Αξία2, Τύπος_πληρωμής))
Μήνυμα = "Η μηνιαία πληρωμή σας είναι " & Format(Πληρωμή, Μορφή) & ". "
Μήνυμα = Μήνυμα & "Θα θέλατε ανάλυση του χρεωλυσίου και "
Μήνυμα = Μήνυμα & "του τόκου ανά περίοδο;"
Διάγραμμα = MsgBox(Μήνυμα, vbYesNo) ' Έλεγχος για το αν επιθυμείται πίνακας.
If Διάγραμμα <> vbNo Then
If Αρ_πληρωμών > 12 Then MsgBox "Μόνο το πρώτο έτος θα εμφανιστεί."
Μήνυμα = "Μήνας Πληρωμή Χρεολύσιο Τόκος " & Γραμμή
For Περίοδος = 1 To Αρ_πληρωμών
If Περίοδος > 12 Then Exit For ' Εμφάνιση μόνο των πρώτων 12.
Κεφάλαιο = PPmt(Επιτόκιο / 12, Περίοδος, Αρ_πληρωμών, -Αξία1, Αξία2, Τύπος_πληρωμής)
Χρεολύσιο = (Int((Κεφ + .005) * 100) / 100) ' Στρογγυλοποίηση του ποσού που αντιστοιχεί στο κεφάλαιο.
Τόκος = Πληρωμή - Χρεολύσιο
Τόκος = (Int((Τόκος + .005) * 100) / 100) ' Στρογγυλοποίηση του τόκου.
Μήνυμα = Μήνυμα & Περίοδος & TB & Format(Πληρωμή, Μορφή)
Μήνυμα = Μήνυμα & TB & Format(Κεφ, Μορφή) & TB & Format(Τόκος, Μορφή) & Γραμμή
Next Περίοδος
MsgBox Μήνυμα ' Εμφάνιση πίνακα τοκοχρεολυσίων.
End If