住宅ローン計算

Question

私は顧客が可能な最大モーゲージを計算する必要があります。

1つのアプリケーションの場合、顧客は給料の3倍までの借り入れに加えて、貯蓄と投資を借りることができます。

共同アプリケーションの場合、顧客は、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 

Answer 1

あなたはintProperty、intLegalFees、およびintStampDutyを初期化していることを確認します。私は、これらは、そのデフォルト値であることを疑うすなわち0次のように私はあなたのロジックを修正した

Answer 2

：

1）加入のアプリボタンがチェックされている場合は、共同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