2014-09-01 135 views
0

我想根據這個公式計算我的代碼中的每月付款,但是我的代碼沒有顯示我預期的結果。我在代碼中做錯了什麼?計算每月付款

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

變量和值使用:

LoanAmt = CDbl(txtLoanAmt.Text) 

    IntRate = CDbl(txtIntRate.Text)/100 

    DurationMths = CDbl(txtDurationMths.Text) 
+0

什麼不工作?你得到錯誤的結果?有錯誤嗎?這也有助於在你的問題中包含任何相關標籤,以便合適的人員看到它。請參閱[如何提出一個好問題](http://stackoverflow.com/help/how-to-ask)瞭解一些提示。 – 2014-09-01 19:55:55

+0

你期待什麼結果?你有什麼? – Blorgbeard 2014-09-01 19:59:15

+3

發佈您的預期結果,以及它輸出的內容。這可能是一個優先問題或其他問題。 – Carcigenicate 2014-09-01 19:59:30

回答

0

你的問題不是那麼清楚,因爲你沒有提供太多的信息。 如果這不是你正在尋找的,那麼請更新你的問題更多的細節和信息。

如果要計算每月支付你需要做的:

比方說,貸款金額爲1000
比方說,稅率爲10%
「loanAmt/100 * INTRATE」西港島線給你量。 「100」

爲了得到他需要付出你需要做的總量
loanAmt +(loanAmt/100 * INTRATE)西港島線給你量「1100」
你還需要投入是()像 「(loanAmt +(loanAmt/100 * INTRATE))」

然後你就可以devide這一數額與他要還錢
(loanAmt +(loanAmt/100 * INTRATE))/ DurationMths

的mounths
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 
+0

這並非如此計算每月平均值。根據你的公式,5年的時間大概是18美元/月,但實際上(比如汽車貸款)這個數字會比21 /月多一點。 – 2014-09-02 13:56:33

0

我認爲你的公式是錯誤的。如果你看看here。你會看到J是每月的利率。

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