Pmt
返回一个Double值，指定基于定期固定付款和固定利率的年金付款额。
语法：Pmt( rate, nper, pv [ , fv [ , type ] ] )
- rate
- 必需 Double，指定每期利率。例如，对于年利率(APR)为10%且按月还款的汽车贷款，每期利率为0.1/12，即0.0083。
- nper
- 必需 Integer，指定年金的总付款期数。例如，四年期汽车贷款的按月付款总期数为4 * 12（即48）期。
- pv
- 必需 Double，指定未来一系列付款的现值（或一次付清额）。例如，贷款买车时，贷款金额就是贷款人未来每月车贷还款的现值。
- fv
- 可选 Variant，指定最终付款后的未来值或现金余额。例如，贷款的未来值为$0，因为这是最终付款后的价值。但如果要在18年内为孩子的教育储蓄$50,000，则$50,000就是未来值。如果省略，则默认为0。
- type
- 可选 Variant，指定付款到期时间。0表示期末付款；1表示期初付款。如果省略，则默认为0。
年金是在一段时间内进行的一系列固定现金支付。年金可以是贷款（如住房抵押贷款）或投资（如月度储蓄计划）。
rate和nper参数必须使用相同单位的付款期来计算。例如，如果rate按月计算，nper也必须按月计算。
对于所有参数，支出的现金（如储蓄存款）用负数表示；收入的现金（如股息支票）用正数表示。
示例
本示例使用Pmt函数返回固定期限贷款的月付款额。提供的参数包括：每期利率百分比(APR / 12)、总付款期数(TotPmts)、贷款现值或本金(PVal)、贷款未来值(FVal)以及指示付款是在期初还是期末到期的数字(PayType)。
vb
Dim Fmt, FVal, PVal, APR, TotPmts, PayType, Payment
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are made.
Fmt = "###,###,##0.00" ' Define money format.
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.
TotPmts = InputBox("How many monthly payments will you make?")
PayType = MsgBox("Do you make payments at the end of month?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
Payment = Pmt(APR / 12, TotPmts, -PVal, FVal, PayType)
MsgBox "Your payment will be " & Format(Payment, Fmt) & " per month."