Συνάρτηση NPer

Ισχύει για
Access για Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Επιστρέφει μια τιμή Διπλής ακρίβειας που καθορίζει τον αριθμό των περιόδων μιας προσόδου με βάση περιοδικές, σταθερές πληρωμές και σταθερό επιτόκιο.

Σύνταξη

NPer(επιτόκιο; πληρωμή;παρούσα_αξία [; μελλοντική_αξία ] [, τύπος ] )

Η σύνταξη της συνάρτησης NPer περιλαμβάνει τα παρακάτω ορίσματα:

Επιχείρημα Περιγραφή
Ποσοστό Υποχρεωτικό. Διπλής ακρίβειας καθορισμός του επιτοκίου ανά περίοδο. Για παράδειγμα, εάν λάβετε ένα δάνειο αυτοκινήτου με ετήσια ποσοστιαία τιμή (APR) 10 τοις εκατό και κάνετε μηνιαίες πληρωμές, το επιτόκιο ανά περίοδο είναι 0,1/12 ή 0,0083.
Pmt Υποχρεωτικό. Διπλής ακρίβειας που καθορίζει την πληρωμή που πρέπει να καταβάλλεται σε κάθε περίοδο. Πληρωμές συνήθως περιέχουν κεφάλαιο και ενδιαφέρον που δεν αλλάζει κατά τη διάρκεια της προσόδου.
Pv Υποχρεωτικό. Καθορισμός διπλής αξίας, ή σημερινής αξίας, μιας σειράς μελλοντικών πληρωμών ή αποδείξεων. Για παράδειγμα, όταν δανείζεστε χρήματα για να αγοράσετε ένα αυτοκίνητο, το ποσό του δανείου είναι η παρούσα αξία για τον δανειστή των μηνιαίων πληρωμών αυτοκινήτων που θα κάνετε.
Fv Προαιρετικό. Μεταβλητή που καθορίζει τη μελλοντική αξία ή το υπόλοιπο μετρητών που θέλετε αφού ολοκληρώσετε την τελική πληρωμή. Για παράδειγμα, η μελλοντική αξία ενός δανείου είναι 0 $, επειδή αυτή είναι η αξία του μετά την τελική πληρωμή. Ωστόσο, εάν θέλετε να εξοικονομήσετε 50.000 $ για περισσότερα από 18 χρόνια για την εκπαίδευση του παιδιού σας, τότε τα 50.000 $ είναι η μελλοντική αξία. Εάν παραλειφθεί, λαμβάνεται το 0.
Πληκτρολογήστε Προαιρετικό. Μεταβλητή που καθορίζει πότε πρέπει να καταβάλλονται οι πληρωμές. Χρησιμοποιήστε την τιμή 0 εάν οι πληρωμές καταβάλλονται στο τέλος της περιόδου πληρωμής ή χρησιμοποιήστε την 1 εάν οι πληρωμές καταβάλλονται στην αρχή της περιόδου. Εάν παραλειφθεί, λαμβάνεται το 0.

    

Παρατηρήσεις

Πρόσοδος είναι μια σειρά σταθερών ταμειακών πληρωμών που πραγματοποιούνται σε μια χρονική περίοδο. Μια πρόσοδος μπορεί να είναι ένα δάνειο (όπως μια στεγαστική υποθήκη) ή μια επένδυση (όπως ένα μηνιαίο πρόγραμμα αποταμίευσης).

Για όλα τα ορίσματα, τα ποσά που καταβάλλονται (όπως οι καταθέσεις σε αποταμιεύσεις) αντιπροσωπεύονται από αρνητικούς αριθμούς. τα εισπραχθέντα μετρητά (όπως οι έλεγχοι μερισμάτων) αντιπροσωπεύονται από θετικούς αριθμούς.

Παράδειγμα ερωτήματος

Έκφραση Αποτελέσματα
SELECT FinancialSample.*, INT(NPER([AnnualRate]/12;-[MonthlyRePayment];[LoanAmount];0;0)) AS MonthsRequired FROM FinancialSample; Επιστρέφει όλα τα πεδία από τον πίνακα "FinancialSample", υπολογίστε τον αριθμό των περιόδων (Μήνες σε αυτό το παράδειγμα) που απαιτούνται για την πληρωμή του "LoanAmount" με βάση το "AnnualRate" και το "MonthlyRePayment" και εμφανίζει τα αποτελέσματα στη στήλη MonthsRequired. Η συνάρτηση INT χρησιμοποιείται για τη μετατροπή της εξόδου δεδομένων "Double" σε ακέραια τιμή.

Παράδειγμα VBA

Σημείωση

Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.

Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση NPer για να επιστρέψει τον αριθμό των περιόδων κατά τις οποίες πρέπει να καταβάλλονται πληρωμές για την αποπληρωμή ενός δανείου, η αξία του οποίου περιέχεται στο PVal. Παρέχονται επίσης το ποσοστό επιτοκίου ανά περίοδο (APR / 12), η πληρωμή (Payment), η μελλοντική αξία του δανείου (FVal) και ένας αριθμός που υποδεικνύει εάν η πληρωμή πρέπει να καταβληθεί στην αρχή ή στο τέλος της περιόδου πληρωμής (PayType).

Dim FVal, PVal, APR, Payment, PayType, TotPmts
' When payments are made.
Const ENDPERIOD = 0, BEGINPERIOD = 1
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.
Payment = InputBox("How much do you " & _
          "want to pay each month?")
PayType = MsgBox("Do you make payments " & _
          "at the end of month?", vbYesNo)
If PayType = vbNo Then 
    PayType = BEGINPERIOD 
    Else PayType = ENDPERIOD
End If
TotPmts = NPer(APR / 12, -Payment, PVal, FVal, PayType)
If Int(TotPmts) <> TotPmts Then 
    TotPmts = Int(TotPmts) + 1
End If
MsgBox "It will take you " & TotPmts & _
" months to pay off your loan."