维基wiki+等额本息房贷计算器.docVIP

维基wiki 维基百科 (tiny) Option Compare Database Option Explicit Private Sub Cbo按揭年数_Change() 在知道贷款类型和贷款年限后，求贷款利率 使用DAO来检索住房贷款年利率 求住房贷款年利率的输入是贷款类型（公积金/商业）和贷款年限 Dim fld As Field Dim rs As DAO.Recordset ADODB.Recordset Dim 贷款类型 As String 将住房贷款年利率表导入rs中，rs为RecordSet对象。 Set rs = Me.Recordset 根据界面的单选框求贷款类型 If Opt公积金住房贷款 Then 贷款类型 = G End If If Opt商业住房贷款 Then 贷款类型 = S End If 求住房贷款年利率 rs.FindFirst 贷款类型 = 贷款类型 and 贷款年限 = Me.Cbo按揭年数.Value 设置贷款年利率到窗体控件“Txt贷款年利率” Me.Txt贷款年利率.Value = rs.Fields(2).Value End Sub Private Sub Cmd开始计算_Click() Dim p, t, k, l As Double 先判必要数据是否填写，例如各种组合框的取值，如果输入房款总额没有填写，则退出计算过程。 If Me.Txt输入房款总额.Value = Or IsNull(Me.Txt贷款总额.Value) Then Me.Txt输入房款总额.SetFocus Exit Sub End If 计算各个文本框的值 Me.Txt房款总额.Value = Me.Txt输入房款总额.Value * 10000 Me.Txt贷款总额.Value = Me.Txt输入房款总额.Value * Me.Cbo按揭成数.Value / 10 * 10000 Me.Txt首期付款.Value = Me.Txt输入房款总额.Value * (1 - Me.Cbo按揭成数.Value / 10) * 10000 求月利率 p = (Me.Txt贷款年利率 / 1200) * (Me.Cbo利率折扣.Value / 100) 求还贷月数 k = Me.Cbo按揭年数.Value * 12 l = Me.Txt贷款总额.Value t = 计算本息还款函数(p, k, l) Me.Txt月均还款.Value = Format(t, #,###.00) Me.Txt还贷月数.Value = k Me.Txt还款总额.Value = Me.Txt月均还款.Value * k Me.Txt支付利息款.Value = Me.Txt还款总额.Value - Me.Txt贷款总额.Value End Sub Private Sub Cmd重新计算_Click() 对输入清除数据 Me.Txt输入房款总额.Value = 对输出清除数据 Me.Txt房款总额.Value = Me.Txt还款总额.Value = Me.Txt贷款总额.Value = Me.Txt首期付款.Value = Me.Txt还贷月数.Value = Me.Txt月均还款.Value = Me.Txt支付利息款.Value = Me.Txt输入房款总额.SetFocus End Sub Private Sub Form_Load() 设置按揭成数默认值为8成。 Me.Cbo按揭成数.DefaultValue = Me.Cbo按揭成数.ItemData(1) 设置按揭年数默认值为20年。 Me.Cbo按揭年数.DefaultValue = Me.Cbo按揭年数.ItemData(19) 设置利率折扣默认值为75折。注意第二列设置为小数时不能够选中。 Me.Cbo利率折扣.DefaultValue = Me.Cbo利率折扣.ItemData(2) 在知道贷款类型和贷款年限后，求贷款利率 Me.Txt贷款年利率.Value