Grąžina Dvigubąjį (duomenų tipas Double: pagrindinis duomenų tipas, skirtas laikyti dvigubojo tikslumo slankiojo kablelio skaičius. Įsimenamas kaip 64 bitų dvejetainis skaičius, kurio reikšmės kinta nuo apytiksliai -1,797E308 iki -4,940E-324 (neigiamos), nuo 4,94E-324 iki 1,797E308 (teigiamos) ir 0.), nurodantį anuiteto laikotarpio palūkanų normą.
Sintaksė
Rate(mok_sk, mok_sk, dv [, bv ] [, tipas ] [, spėjimas ] )
Funkcijos Rate sintaksės argumentai:
| Argumentas |
Aprašas |
| mok_sk |
Būtinas. Dvigubasis, nurodantis bendrą anuiteto mokėjimo periodų skaičių. Pavyzdžiui, jeigu kas mėnesį mokate keturių metų paskolos automobiliui įmokas, jūsų paskola susideda iš 4 * 12 (arba 48) mokėjimo periodų. |
| laik_mok |
Būtinas. Dvigubasis, nurodantis kiekvieno laikotarpio įmoką. Paprastai įmokų kapitalas ir palūkanos anuitete nesikeičia. |
| dv |
Būtinas. Dvigubasis, nurodantis dabartinę (arba šiandienos) būsimų įmokų ar įplaukų vertę. Pavyzdžiui, kai pasiskolinate pinigų automobiliui pirkti, paskolos dydis yra dabartinė jūsų būsimų mėnesinių įmokų už mašiną vertė skolintojui. |
| bv |
Pasirinktinis. Variantas (duomenų tipas Variant: Numatytasis duomenų tipas tipo aprašo simbolių neturintiems kintamiesiems, kai negaliojaDeftipo sakinys. Variant tipas gali įsiminti skaitinius, eilutės, duomenų/laiko, Null arba Empty tipo duomenis.), nurodantis būsimąją vertę arba jūsų norimų turėti grynųjų pinigų kiekį atlikus paskutinį mokėjimą. Pavyzdžiui, būsimoji paskolos vertė yra 0 LT, nes tai yra jos vertė po paskutinio mokėjimo. Tačiau jei savo vaiko mokslui per 18 metų norite sutaupyti 50 000 LT, tada 50 000 LT yra būsimoji vertė. Jeigu nenurodyta, reikšmė yra 0. |
| tipas |
Pasirinktinis. Variantas, nurodantis skaičių, kuris reiškia, kada reikia atlikti mokėjimus. Naudokite 0, jei apmokėti reikia iki laikotarpio pabaigos, arba 1, jei reikia apmokėti iki laikotarpio pradžios. Jeigu nenurodyta, reikšmė yra 0. |
| spėjimas |
Pasirinktinis. Variantas, nurodantis jūsų spėjamą reikšmę, kurią grąžins funkcija Rate. Jei nenurodytas, spėjimas lygus 0,1 (10 procentų). |
Pastabos
Anuitetas – tai fiksuotų apmokėjimų per tam tikrą laikotarpį serija. Anuitetas gali būti paskola (pavyzdžiui, nekilnojamo turto) ar investicija (pavyzdžiui, mėnesio santaupų planas).
Visų argumentų (argumentas: reikšmė, teikianti informaciją veiksmui, įvykiui, metodui, ypatybei, funkcijai arba procedūrai.) išmokėti pinigai (pavyzdžiui, indėliai į santaupas) nurodomi neigiamais skaičiais; gauti pinigai (pavyzdžiui, dividendų čekiai) nurodomi teigiamais skaičiais.
Funkcija Rate skaičiuoja pagal iteraciją. Pradėdama nuo reikšmės spėjimas, funkcija Rate skaičiavimą vykdo tol, kol negauna rezultato 0,00001 procento tikslumu. Jei funkcija Rate per 20 bandymų neapskaičiuoja rezultato, ji nepavyksta. Jeigu jūsų spėjimas yra 10 procentų, o funkcija Rate nepavyksta, pabandykite nurodyti kitą spėjimo reikšmę.
Pavyzdys
Pastaba Toliau pateikiamuose pavyzdžiuose rodoma, kaip naudojama ši funkcija „Visual Basic for Applications“ (VBA) modulyje. Plačiau apie darbą su VBA žiūrėkite pasirinkę Nurodymai programuotojui išplečiamajame meniu šalia komandos Ieškoti ir įvedę į paieškos lauką vieną ar daugiau sąvokų.
Šiame pavyzdyje funkcija Rate naudojama apskaičiuoti paskolos palūkanų normą, kai nurodytas visų mokėjimų skaičius (TotPmts), paskolos įmokos dydis (Payment), dabartinė paskolos kapitalo vertė (PVal), būsimoji paskolos vertė (FVal), skaičius, nurodantis, ar apmokėjimas atliekamas mokėjimo laikotarpio pradžioje, ar pabaigoje (PayType), ir apytikrė palūkanų norma, kurios tikimasi (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."