NPer 函数

来源:www.accessoft.com 点击数:3334 　 | 收藏 | 复制

时　间:2022-11-12 08:12:19
作　者:杨雪 ID：42182 城市：南京
摘　要:返回一个 Double 值，该值指定基于定期、固定付款和固定利率的年金的期间数。
正　文:

语法:

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."

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】