format一个奇怪运用
本帖最后由 bcrun 于 2013-06-27 20:06:25 编辑
Private Sub 文本按揭_Change()
' 根据贷款额,按揭年数,年利率,调用Pmt函数,计算每月支付额
Dim rate As Single, nper As Integer, pv As Single
rate = Val(文本按揭) / 12 / 100
nper = Val(文本按揭) * 12
pv = Val(标签显示总价) - Val(文本首付) * 10000
标签显示年利率 = 文本按揭
标签显示月付 = Format(Pmt(rate, nper, -pv), "0.00")
End Sub