按揭计算答案

【问题标题】：Mortgage Calculation按揭计算
【发布时间】：2011-12-04 07:16:16
【问题描述】：

我必须为客户计算可能的最高抵押贷款。

如果是单个应用程序，客户最多可以借到三倍的工资以及他们可能拥有的任何储蓄和投资。

如果是联名申请，客户可以借3倍的工资和2倍的最小工资，也可以用任何储蓄和投资借款。

在任何一种情况下，申请人的借款都不得超过房产购买价值的 90%（包括印花税和律师费）。

我已经声明了所有内容并完成了代码，但是每次我计算他们可以借的最大金额时，它都会显示为 0。如果有人能发现问题，我的代码如下。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _  
        Handles btnMaxPossible.Click

    If rbtnSingleApp.Checked Then
        txtMaxPossible.Text = Val((intSalary1 * 3) + intInvestments + intSavings)
        txtMaxPossible.Text = intMaxPossible
    ElseIf rbtnJointApp.Checked Then
        txtMaxPossible.Text = Val(intSalary1 * 3 + intSalary2 * 2) + _
            intInvestments + intSavings
    End If

    txtMaxPossible.Text = (intProperty + intLegalFees + intStampDuty) * 0.9

End Sub

【问题讨论】：

Winforms？网络表格？ WPF？
您是否注意到您将txtMaxPossible.Text 设置了两次，用于不同的事物？
两次或三次。质量。

标签： vb.net visual-studio-2010

【解决方案1】：

确保您正在初始化 intProperty、intLegalFees 和 intStampDuty。我怀疑这些是它们的默认值，即 0。

【讨论】：

【解决方案2】：

我将你的逻辑修改如下：

1) 如果join app按钮被勾选，则执行joint calcs；否则执行单次计算

2) 分别确定最大个人额度，然后取最大个人额度和最大财产额度中的最小值。

3) 删除 Val 语句并使用 tostring

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaxPossible.Click

    Dim MaxPersonalAmount As Integer

    If rbtnJointApp.Checked Then
      MaxPersonalAmount = (intSalary1 * 3) + (intSalary2 * 2) + intInvestments + intSavings
    Else
      MaxPersonalAmount = (intSalary1 * 3) + intInvestments + intSavings
    End If

    Dim MaxPropertyAmount As Integer

    MaxPropertyAmount = (intProperty + intLegalFees + intStampDuty) * 0.9

    txtMaxPossible.Text = Math.Min(MaxPropertyAmount, MaxPersonalAmount).ToString()

End Sub

【讨论】：