语 法:
NPer (rate， pmt， pv， [ fv， [ type ]])
“NPer”函数包含以下命名参数：
Part 说明:
Part
|
说明
|
rate
|
必填。 指定每个周期的利率的 Double。 例如，如果您获得了年利率 (APR) 为 10% 的汽车贷款并进行月供，则每期利率为 0.1/12 或 0.0083。
|
pmt
|
必填。 指定每个月的付款的“Double”。 付款通常包含了在该年金时期间不会改变的本金和利息。
|
pv
|
必填。 指定一系列未来付款或回执的现值或当前值的“Double” 。 例如，当您贷款购买汽车时，贷款金额是您将每月支付汽车的付款的贷款人现值。
|
fv
|
可选。 指定在完成最后付款后所需的未来值或现金余额的 Variant。 例如，贷款的未来值为 $0，因为这是完成最后付款后的值。 但是，如果你想要在 18 年内为儿童教育节省 50，000 美元，则 50，000 美元是未来值。 如果省略了，便假设为 0。
|
type
|
可选。 指定付款的到期时间的 Variant。 如果付款在付款期结束时到期，则使用 0；如果付款在付款期开始时到期，则使用 1。 如果省略，则假定为 0。
|
备 注:
年金是一段时间内一系列的固定的现金付款。 年金可以是贷款（如房产抵押），也可以是投资（如月存款计划）。
对于所有参数，支出的现金（如储蓄的存款）由负数表示；收入的现金（如股息支票）由正数表示。
此示例使用 NPer 函数返回必须付款以偿还其值包含在 PVal 中的贷款的期间数。还提供了每期的利率百分比 (APR / 12) 、付款 (Payment) 、贷款 (FVal) 的未来值以及指示付款是在付款期 (PayType) 开始时还是结束时到期的一个数字。
Dim FVal, PVal, APR, Payment, PayType, TotPmts
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' 付款时.
FVal = 0 ' 通常 0 表示贷款.
PVal = InputBox("你想借多少钱?")
APR = InputBox("您的贷款的年利率是多少?")
If APR > 1 Then APR = APR / 100 ' Ensure proper form.
Payment = InputBox("您每月要支付多少费用?")
PayType = MsgBox("您是否在月底付款?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
TotPmts = NPer(APR / 12, -Payment, PVal, FVal, PayType)
If Int(TotPmts) <> TotPmts Then TotPmts = Int(TotPmts) + 1
MsgBox "It will take you " & TotPmts & " months to pay off your loan."
