按揭計算

我必須計算爲客戶的最大的抵押貸款成爲可能。按揭計算

如果它是一個單一的應用程序，客戶可以借到三倍工資再加上他們可能有任何儲蓄和投資。

如果是聯名申請，客戶可以借用大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

來源

2011-12-03 Niamh C

的WinForms？ Web表單？ WPF？ – Oded

你有沒有注意到你設置了'txtMaxPossible.Text'兩次，以不同的事情？ –

兩次或三次。質量。 –

確保您初始化intProperty，intLegalFees，並intStampDuty。我懷疑這些是它們的默認值，即0。

來源

2011-12-03 21:57:52

我已經修改您的邏輯如下：

1）如果連接應用按鈕被選中，則執行聯合Calcs（計算）;否則執行單Calcs（計算）

2）分別確定最大個人量，則取最小值，最大個人量和最大特性量的。

3）取出瓦爾聲明和使用的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

來源

2011-12-03 22:01:32

回答

相關問題