Συνάρτηση NPer

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

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

Σύνταξη

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

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

Επιχείρημα Περιγραφή
Τιμή Υποχρεωτικό. Διπλός προσδιορισμός του επιτοκίου ανά περίοδο. Για παράδειγμα, αν πάρετε ένα δάνειο αυτοκινήτου με συνολικό ετήσιο πραγματικό επιτόκιο (ΣΕΠΕ) 10% και καταβάλλετε μηνιαίες δόσεις, το επιτόκιο ανά περίοδο είναι 0,1/12 ή 0,0083.
πληρωμή Υποχρεωτικό. Διπλός προσδιορισμός της πληρωμής που πρέπει να γίνει σε κάθε περίοδο. Πληρωμές συνήθως περιέχουν κεφάλαιο και τόκους που δεν αλλάζουν κατά τη διάρκεια της προσόδου.
Φ/Β Υποχρεωτικό. Διπλασιασμός της παρούσας αξίας, ή της σημερινής αξίας, μιας σειράς μελλοντικών πληρωμών ή αποδείξεων. Για παράδειγμα, όταν δανείζεστε χρήματα για να αγοράσετε ένα αυτοκίνητο, το ποσό του δανείου είναι η παρούσα αξία για τον δανειστή των μηνιαίων πληρωμών αυτοκινήτου που θα κάνετε.
μελλοντική_αξία Προαιρετικό. Παραλλαγή που καθορίζει τη μελλοντική αξία ή το υπόλοιπο μετρητών που θέλετε μετά την πραγματοποίηση της τελικής πληρωμής. Για παράδειγμα, η μελλοντική αξία ενός δανείου είναι 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."