I need help for my payment calculation. When I applied Rate Discount into the worksheet for calculate loan amortize, the looping in interest rate, monthly payment, and remain principal balance are not continue even I setup a loop like this:
For loopIndexInteger = 0 To maximumInteger
SheetObj.Cells(exRow, 2) = SheetObj.Cells.Item(exRow, 4).value * (prod3disd1 / 100) / 12
SheetObj.Cells(exRow, 3) = MonthlyPmt - SheetObj.Cells.Item(exRow, 2).value
Next loopIndexInteger
still having problem.
This is my output look like in excel worksheet Please see # Payment in 3, 6, 9.
Loan Amount: $30,000.00
Interest Rate: 8.00%
Years of Loan 10
Monthly Payment: $363.98
#Payment Interest Principal Pmt Principal Bal
1 200.00 163.98 29,836.02
2 198.91 165.08 29,670.94
3 147.52 216.46 29,504.76
4 196.70 167.28 29,337.48
5 195.58 168.40 29,169.08
6 145.00 218.98 28,999.56
7 193.33 170.65 28,828.91
8 192.19 171.79 28,657.12
9 118.68 245.30 28,484.18
10 189.89 174.09 28,310.09
11 188.73 175.25 28,134.84
12 187.57 176.42 27,958.43
------------------------------------------------------------------------------------------------------------------
Also, when I set option strict on, it gave me an error message said " option strict on disallows late binding". This is how I coding in my vb: SheetObj.Cells(exRow, 3) = MonthlyPmt - SheetObj.Cells.Item(exRow, 2).value.
Thank you.