Расчет ежемесячной оплаты

Question

Я пытаюсь вычислить ежемесячный платеж в своем коде на основе этой формулы, но мой код не показывает ожидаемые результаты. Что я делаю неправильно в своем коде?

MthlyPmt = CDbl(LoanAmt * IntRate/(1 - (1 + IntRate)^-DurationMths)) 

переменные и значения используются:

LoanAmt = CDbl(txtLoanAmt.Text) 

    IntRate = CDbl(txtIntRate.Text)/100 

    DurationMths = CDbl(txtDurationMths.Text) 

Answer 1

Ваш вопрос не очень понятно, потому что вы не дают много информации. Если это не то, что вы ищете, пожалуйста, обновите свой вопрос с подробной информацией и информацией.

, если вы хотите, чтобы рассчитать ежемесячный платеж, необходимо сделать:

Допустим, сумма кредита составляет 1000
Допустим, ставка 10%
«loanAmt/100 * INTRATE» Виль дать вам сумму. «100»

Чтобы получить общую сумму, которую он должен заплатить вам нужно сделать
loanAmt + (loanAmt/100 * INTRATE) Виль дать вам сумму «1100»
вам также нужно поставить это в() как "(loanAmt + (loanAmt/100 * INTRATE))"

Тогда вы можете разделим эту сумму с mounths он собирается платить его обратно
(loanAmt + (loanAmt/100 * INTRATE))/DurationMths

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim MthlyPmt As Double 
    Dim loanAmt As Double 
    Dim IntRate As Double 
    Dim DurationMths As Double 

    loanAmt = CDbl(txtLoanAmt.Text) 
    IntRate = CDbl(txtIntRate.Text) 
    DurationMths = CDbl(txtDurationMths.Text) 
    MthlyPmt = (loanAmt + (loanAmt/100 * IntRate))/DurationMths 

    Result.Text = MthlyPmt 
End Sub 

Answer 2

Я думаю, что ваша формула неправильная. Если вы посмотрите here. Вы увидите, что J - это месячная процентная ставка.

IntRate = CDbl(txtIntRate.Text)/(12 * 100)