Posted: Tue Mar 19, 2002 6:40 pm
Private AmortTable(360) As String
Private Sub Command1_Click()
Dim LoanAmount As Currency, MonthlyPayment As Currency
Dim YrlyRate As Single, MonthlyRate As Single
Dim Years As Integer, Payments As Integer
LoanAmount = Val(txtLoanAmount)
YrlyRate = Val(txtYrlyRate)
Years = Val(txtYears)
MonthlyRate = YrlyRate / 1200
Payments = Years
MonthlyPayment = LoanAmount * MonthlyRate / (1 - (1 + MonthlyRate) (-Payments))
lblMonthlyPayment = Format$(MonthlyPayment, "currency")
Dim PaymentNumber As Integer
Dim MonthlyInt As Currency
Dim TotalInt As Currency, CurrentAmt As Currency
Dim YearNumber As Integer, DispLine As String
Dim TbCh As String
TbCh = Chr$(9) 'the tab character
TotalInt = 0
CurrentAmt = LoanAmount
For PaymentNumber = 1 To Payments
MonthlyInt = CurrentAmt * MonthlyRate
TotalInt = TitalInt + MonthlyInt
CurrentAmt = CurrentAmt + MonthlyInt - MonthlyPayment
YearNumber = PaymentNumber / 12
DispLine = DispLine & TbCh & Format$(YearNumber, "#0")
DispLine = DispLine & TbCh & Format$(CurrentAmt, "Currency")
DispLine = DispLine & TbCh & Format$(TotalInt, "Currency")
AmortTable(PaymentNumber) = DispLine
Next PaymentNumber 'end of loop
hsbPayment.Min = 1
hsbPayment.Max = Payments
hsbPayment.LargeChange = 12 'one year = 12 payments
hsbPayment.Value = 1
txtAmortTable = AmortTable(1)
End Sub
Private Sub hsbPayment_Change()
txtAmortTable = AmortTable(hsbPayment.Value)
End Sub
That's meh code for an amoritization table, what's wrong with it"?? D: it doesn't work :mad: