Zobrazit vše

Skrýt vše

Vrátí hodnotu typu Double (Typ dat Double: Základní typ dat pro ukládání čísel s plovoucí desetinnou čárkou a dvojitou přesností. Je ukládán jako 64bitové číslo a může nabývat hodnot v rozmezí přibližně -1,797E308 až -4,940E-324 (záporné) a 4,94E-324 až 1,797E308 (kladné) nebo hodnoty 0.) určující počet období anuity na základě pevných pravidelných plateb a pevné úrokové míry.

Syntaxe

NPer(úroková_míra, platba, současná_hodnota [, budoucí_hodnota ] [, typ ] )

Syntaxe funkce NPer zahrnuje tyto argumenty (Argument: Hodnota, která poskytuje informace určité akci, události, metodě, vlastnosti, funkci nebo proceduře.):

Poznámky

Anuita je série pevných plateb v hotovosti v průběhu určitého období. Anuita může být půjčka (jako je například hypotéka na dům) nebo investice (jako jsou například měsíční vklady na spoření).

U všech argumentů (Argument: Hodnota, která poskytuje informace určité akci, události, metodě, vlastnosti, funkci nebo proceduře.) jsou provedené platby (například vklady na spoření) uvedeny jako záporná čísla a přijaté platby (například dividendové šeky) jako kladná čísla.

Příklad

 Poznámka:   Následující příklady uvádějí použití této funkce v modulu jazyka Visual Basic for Applications (VBA). Další informace o práci s jazykem VBA získáte tak, že klepnete na položku Referenční informace pro vývojáře v rozevíracím seznamu vedle pole Hledat a do pole pro hledání zadáte jeden nebo více pojmů.

V tomto příkladu je funkce NPer použita k vrácení počtu platebních období půjčky, jejíž hodnota je obsažena v parametru PVal. Zadává se rovněž úroková míra za každé období (APR / 12), výše platby (Payment), budoucí hodnota půjčky (FVal) a číslo určující, zda je platba splatná na počátku nebo na konci platebního období (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."