pgmtkl
asked on
VB math functions
My initial payment function works below, but the payment schedule which follows does not go past the first payment. Do i have the code wrong? I am trying to use the vb math functions but I must have something incorrect with the amortization schedule.
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
'when the user clicks calculate payment the payment appears in the payment textbox
'for each of the three loan rate/terms
'declaring variables
Dim Amount As Double
Dim Rate() As Double = {5.35, 5.5, 5.75}
Dim Term() As Integer = {84, 180, 360}
Amount = CDbl(txtAmount.Text)
For TermIndex As Integer = 0 To 2
Dim Title As String = lstRate.Items(TermIndex)
PmtCalc(Title, Amount, Rate(TermIndex), Term(TermIndex))
Next TermIndex
End Sub
Public Function PmtCalc(ByVal Title As String, ByVal Amount As Double, ByVal Rate As Double, _
ByVal Term As Double) As Double
Dim intPayment As Double
Dim strTemp As String
' This next line will calculate total monthly payment
intPayment = Microsoft.VisualBasic.Fina
'adds the listbox array along with the payment to the bottom listbox area
strTemp = Title & " " & " " & " " & "Payment =" & " " & " " & intPayment.ToString("C2")
lstPayment.Items.Add(strTe
' End Function
'amortization Schedule and list payments
Dim principalPayment As Double = 0
Dim intrestPayment As Double = 0
Dim currentBalance As Double = Amount
For paymentNumber As Double = 1 To Term
' Calculate Principal payment
principalPayment = Microsoft.VisualBasic.Fina
Rate / 12, paymentNumber, Term, -currentBalance, 0.0, DueDate.BegOfPeriod)
currentBalance -= principalPayment
' Round principal.
principalPayment = (Int((principalPayment + 0.005) * 100) / 100)
' Calculate Interest
intrestPayment = intPayment - principalPayment
' Round intrestPayment.
intrestPayment = (Int((intrestPayment + 0.005) * 100) / 100)
strTemp = "Payment No " & paymentNumber.ToString() & " / Interest --" & _
intrestPayment.ToString("C
Me.lstPayment.Items.Add(st
Next
End Function
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
'when the user clicks calculate payment the payment appears in the payment textbox
'for each of the three loan rate/terms
'declaring variables
Dim Amount As Double
Dim Rate() As Double = {5.35, 5.5, 5.75}
Dim Term() As Integer = {84, 180, 360}
Amount = CDbl(txtAmount.Text)
For TermIndex As Integer = 0 To 2
Dim Title As String = lstRate.Items(TermIndex)
PmtCalc(Title, Amount, Rate(TermIndex), Term(TermIndex))
Next TermIndex
End Sub
Public Function PmtCalc(ByVal Title As String, ByVal Amount As Double, ByVal Rate As Double, _
ByVal Term As Double) As Double
Dim intPayment As Double
Dim strTemp As String
' This next line will calculate total monthly payment
intPayment = Microsoft.VisualBasic.Fina
'adds the listbox array along with the payment to the bottom listbox area
strTemp = Title & " " & " " & " " & "Payment =" & " " & " " & intPayment.ToString("C2")
lstPayment.Items.Add(strTe
' End Function
'amortization Schedule and list payments
Dim principalPayment As Double = 0
Dim intrestPayment As Double = 0
Dim currentBalance As Double = Amount
For paymentNumber As Double = 1 To Term
' Calculate Principal payment
principalPayment = Microsoft.VisualBasic.Fina
Rate / 12, paymentNumber, Term, -currentBalance, 0.0, DueDate.BegOfPeriod)
currentBalance -= principalPayment
' Round principal.
principalPayment = (Int((principalPayment + 0.005) * 100) / 100)
' Calculate Interest
intrestPayment = intPayment - principalPayment
' Round intrestPayment.
intrestPayment = (Int((intrestPayment + 0.005) * 100) / 100)
strTemp = "Payment No " & paymentNumber.ToString() & " / Interest --" & _
intrestPayment.ToString("C
Me.lstPayment.Items.Add(st
Next
End Function
ASKER CERTIFIED SOLUTION
membership
Create a free account to see this answer
Signing up is free and takes 30 seconds. No credit card required.
I know you've already closed this question and given me the points (thanks for that), but I wanted to let you know I discovered another error.
Also in this line:
principalPayment = Microsoft.VisualBasic.Fina
(Rate / 100) / 12, paymentNumber, Term, -currentBalance, 0.0, DueDate.BegOfPeriod)
You don't want to keep track of a current balance, and stick it in the PV parameter. You always want this parameter to be the total amount of the loan (the present value of the loan *today*). Do it this way instead:
principalPayment = Microsoft.VisualBasic.Fina
(Rate / 100) / 12, paymentNumber, Term, -Amount, 0.0, DueDate.BegOfPeriod)
...or your results will be inaccurate.
Also in this line:
principalPayment = Microsoft.VisualBasic.Fina
(Rate / 100) / 12, paymentNumber, Term, -currentBalance, 0.0, DueDate.BegOfPeriod)
You don't want to keep track of a current balance, and stick it in the PV parameter. You always want this parameter to be the total amount of the loan (the present value of the loan *today*). Do it this way instead:
principalPayment = Microsoft.VisualBasic.Fina
(Rate / 100) / 12, paymentNumber, Term, -Amount, 0.0, DueDate.BegOfPeriod)
...or your results will be inaccurate.
ASKER
thanks. i notice the difference. Just to clarify- does the end of period go on the initial payment and the beg of period go on the amortization schedule??
ASKER