vba里的Pmt 函数示例(vba)

gemini527

本示例使用 Pmt 函数计算以定期方式偿还贷款之每期月付款金额。计算时需给定每期利率（APR / 12），付款总期数（TotPmts），贷款的现值或本金（PVal），贷款的未来值（FVal）及付款方式，以数值表示期初或期末付款（PayType）。
Dim Fmt, FVal, PVal, APR, TotPmts, PayType, PaymentConst ENDPERIOD = 0, BEGINPERIOD = 1   ' 付款方式。Fmt = "###,###,##0.00"   ' 定义金额格式。FVal = 0   ' 对贷款而言通常为零。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   ' 确保格式正确。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 = ENDPERIODPayment = Pmt(APR / 12, TotPmts, -PVal, FVal, PayType)MsgBox "Your payment will be " & Format(Payment, Fmt) & " per month."