Rate, funksjon

Gjelder for
Access for Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Returnerer et langt flyttall som angir rentesatsen per periode for en annuitet.

Syntaks

Rente(antall_innbet; innbetaling; nåverdi [, sluttverdi ] [, type ] [, antatt ] )

Syntaksen for funksjonen Rente har disse argumentene:

Argumenter Beskrivelse
antall_innbet Obligatorisk. Dobbelt som angir totalt antall avdragsperioder i en annuitet. Hvis du for eksempel betaler månedlige avdrag på et fireårig billån, har lånet totalt 4 * 12 (eller 48) avdragsperioder.
betaling Obligatorisk. Langt flyttall som angir innbetalingen som skal foretas i hver periode. En innbetaling består som regel av en hovedstol og renter som ikke endres i annuitetens løpetid.
Nåverdi Obligatorisk. Dobbelt som angir nåverdien, eller dagens verdi, for en serie med fremtidige betalinger eller inntekter. Når du for eksempel låner penger til å kjøpe en bil, er lånebeløpet nåverdien til utlåner av de månedlige bilbetalingene du vil betale.
sluttverdi Valgfritt. Variant som angir en fremtidig verdi eller kontantbalanse du vil ha etter at du har betalt siste avdrag. Den fremtidige verdien for et lån er for eksempel 0 dollar fordi det er lånets verdi etter det siste avdraget. Hvis du imidlertid vil spare 500 000 dollar over 18 år til barns utdanning, er 500 000 den fremtidige verdien. Hvis dette utelates, brukes 0.
type Valgfritt. Variant som angir et tall som angir når betalingen forfaller. Bruk 0 hvis betalingen forfaller på slutten av betalingsperioden, eller bruk 1 hvis betalingen forfaller i begynnelsen av perioden. Hvis dette utelates, brukes 0.
Gjett Valgfritt. Variant som angir verdien du estimerer vil bli returnert av Rate. Hvis utelatt, er anslag 0,1 (10 %).

Merknader

En annuitet er en serie med faste kontantavdrag som betales over tid. En annuitet kan være et lån (for eksempel et huslån) eller en investering (for eksempel en månedlig spareplan).

For alle argumenter representeres kontanter du betaler ut, for eksempel bankinnskudd på sparekonti, av negative tall, og penger du får inn, for eksempel utbyttesjekker, av positive tall.

Rente beregnes ved gjentakelse. Fra og med verdien av antatt, går frekvensen gjennom beregningen til resultatet har en nøyaktighet som ligger innenfor 0,00001 prosent. Hvis Frekvens ikke finner et resultat etter 20 forsøk, mislykkes den. Hvis argumentet antatt er 10 prosent og Rente mislykkes, kan du prøve en annen verdi for argumentet antatt.

Eksempel på spørring

Uttrykk Resultater
SELECT FinancialSample.*, (Rate([TermInYears]*12,-[MonthlyRePayment],[LoanAmount],0,0,0.1)*12) AS InterestRate FROM FinancialSample; Returnerer alle feltene fra tabellen Finansutvalg og årlig rentesats basert på TermInYears, Månedlig Tilbakebetaling og Lånebeløp, og viser resultatene i kolonnen Rentesats.

VBA-eksempel

Obs!

I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.

I dette eksemplet brukes Rente-funksjonen til å beregne rentesatsen for et lån gitt det totale antallet innbetalinger (TotPmts), lånebeløpet (Payment), nåverdien eller hovedstolen på lånet (PVal), den fremtidige verdien av lånet (FVal), et tall som angir om betalingen forfaller på begynnelsen eller slutten av betalingsperioden (PayType), og en tilnærming til forventet rente (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."