Funkcija Rate

Attiecas uz
Access pakalpojumam Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Atgriež dubultu vērtību, kas norāda anuitātes procentu likmi periodam.

Sintakse

Rate(per_sk, maks, pv [, nv ] [, tips ] [, minējums ] )

Funkcijas Rate sintaksē ir šādi argumenti:

Arguments Apraksts
nper Obligāts arguments. Dubults , kas norāda kopējo maksājumu periodu skaitu gadā. Piemēram, ja veicat ikmēneša maksājumus par četru gadu aizdevumu automašīnas iegādei, jūsu aizdevumam ir 4 * 12 (vai 48) maksājuma periodi.
pmt Obligāts. Dubulta vērtība, kas norāda katra perioda maksājumu. Maksājumā parasti iekļauta pamatsumma un procenti, kas nemainās gada laikā.
pv Obligāts arguments. Double , kas norāda nākotnes maksājumu vai ieņēmumu sērijas pašreizējo vērtību vai šodienas vērtību. Piemēram, aizņemoties naudu, lai iegādātos automašīnu, aizdevuma summa ir pašreizējā vērtība aizdevējam ikmēneša automašīnas maksājumiem.
fv Neobligāts arguments. Variants, kas norāda vēlamo nākotnes vērtību vai naudas atlikumu pēc pēdējā maksājuma veikšanas. Piemēram, aizdevuma nākotnes vērtība ir 0 €, jo tā ir vērtība pēc pēdējā maksājuma. Taču, ja vēlaties ietaupīt 50 000 € nākamo 18 gadu laikā bērnu izglītībai, tad 50 000 € ir nākotnes vērtība. Ja šī vērtība tiek izlaista, tiek pieņemts, ka tā ir 0.
tips Neobligāts arguments. Variants , kas norāda numuru, kas norāda, kad beidzas maksājumu veikšanas termiņš. Izmantojiet 0, ja maksājumi beidzas maksājumu perioda beigās, vai izmantojiet 1, ja maksājumi beidzas perioda sākumā. Ja šī vērtība tiek izlaista, tiek pieņemts, ka tā ir 0.
minējums Neobligāts arguments. Variants , kas norāda jūsu aprēķināto vērtību, tiks atgriezts ar likmi. Ja tas tiek izlaists, minējums ir 0,1 (10 procenti).

Piezīmes

Anuitāte ir fiksētu maksājumu sērija, kas tiek veikti noteiktā laika periodā. Anuitāte var būt aizdevums (piemēram, hipotēka) vai ieguldījums (piemēram, ikmēneša ietaupījumu plānu).

Visos argumentos izmaksātā nauda (piemēram, depozīti vai uzkrājumi) tiek attēlota negatīvos skaitļos; saņemtā nauda (piemēram, dividendes) tiek attēlota pozitīvos skaitļos.

Likmi aprēķina iterācijas ceļā. Sākot ar minējuma vērtību, funkcija Rate veic ciklus ap aprēķinu, līdz rezultāts ir precīzs ar 0,00001 procenta precizitāti. Ja koeficients nevar atrast rezultātu pēc 20 mēģinājumiem, tas neizdodas. Ja minējums ir 10 procenti un likme neizdodas, izmēģiniet citu minējuma vērtību.

Vaicājuma piemērs

Izteiksme Rezultāti
SELECT FinancialSample.*, (Rate([TermInYears]*12,-[MonthlyRePayment],[LoanAmount],0,0,0,1)*12) AS InterestRate FROM FinancialSample; Atgriež visus laukus no tabulas "FinancialSample" un procentu gada "Likme", pamatojoties uz "TermInYears", "MonthlyRePayment" un "LoanAmount", un parāda rezultātus kolonnā Procentu likme.

VBA piemērs

Piezīme

Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā funkcija Rate tiek izmantota, lai aprēķinātu aizdevuma procentu likmi, ņemot vērā kopējo maksājumu skaitu (TotPmts), aizdevuma maksājuma summu (Payment), aizdevuma pašreizējo vērtību vai pamatsummu (PVal), aizdevuma nākotnes vērtību (FVal), skaitli, kas norāda, vai maksājums jāveic maksājuma perioda sākumā vai beigās (PayType), un paredzamās procentu likmes aptuvenu vērtību (Guess).

Dim Fmt, FVal, Guess, PVal
Dim Payment, TotPmts, PayType, APR
' When payments are made.
Const ENDPERIOD = 0, BEGINPERIOD = 1    
Fmt = "##0.00"    ' Define percentage format.
FVal = 0    ' Usually 0 for a loan.
Guess = .1    ' Guess of 10 percent.
PVal = InputBox("How much did you borrow?")
Payment = InputBox("What's your monthly payment?")
TotPmts = InputBox("How many monthly payments do " & _
          "you have to make?")
PayType = MsgBox("Do you make payments at the end " & _
          "of the month?", vbYesNo)
If PayType = vbNo Then 
    PayType = BEGINPERIOD 
    Else PayType = ENDPERIOD
End If
APR = (Rate(TotPmts, -Payment, PVal, _
      FVal, PayType, Guess) * 12) * 100
MsgBox "Your interest rate is " & _
    Format(CInt(APR), Fmt) & " percent."