Расчет ипотеки

Question

Я должен рассчитать максимально возможную ипотеку для клиента.

Если это одна заявка, клиент может занять в три раза больше своей зарплаты плюс любые сбережения и инвестиции, которые он может иметь.

Если это совместная заявка, клиент может занимать в 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) Если отмечена кнопка «Присоединиться к приложению», выполните совместные вычисления; в противном случае выполните одиночные вызовы

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