2014-09-01 171 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)