Private Sub cmdl_Click()

Dim srok As Single, zena As Single, vznos As Single

Dim ezh As Single, Rate As Single, Octatok As Single

Dim i As Integer

Dim grafic()

zena = Val(txtzena.Text)

vznos = Val(txtvznos.Text) ¹ Задаем сумму кредита и остаток, который будет уменьшаться

kred = zena - vznos

Octatok = kred

¹ Цикл по всем элементам списка lstsrok, ¹ нумерация с нуля, поэтому lstsrok.ListCount -1 For i = 0 То lstsrok-ListCount -1 ' Выбираем выделенный элемент If lstsrok.Selected(i) Then Select Case i CaseO

srok = 3 Casel

srok = 6 Case 2

srok = 9 Case3

srok = 12 End Select End If Nexti

¹ Определяем ежемесячную сумму на кредит и годовую ставку (процент)

ezh = kred / srok Rate = Val(txtrate.Text)

¹ Определяем массив 'Трафик платежей" и названия столбцов ReDim grafic(srok, 3)

grafic(0, 0) = "Остаток" grafic(0,1) = "Процент" grafic(0,2) = "Кредит" grafic(0,3) = "Сумма" ¹ Заполняем массив "График платежей" For i = 1 То srok

grafic(i, 0) = Format(Octatok, "###.##")

grafic(i, 1) = Format((Octatok * (Rate /100) * (30 / 360)), "###.##") grafic(i, 2) = Format(ezh, "###.##")

grafic(i, 3) = Format(ezh + (Octatok * (Rate /100) * (30 / 360)), "###.##") ¹ На каждом месяце после выплаты уменьшается остаток

Octatok = Octatok - ezh Nexti ¹ Вставляем массив в список lsttab

lsttab.List ■ grafic End Sub

Private Sub CommandButtonl_Click() ¹ Очистка списка

Дата добавления: 2015-07-26; просмотров: 132; Нарушение авторских прав

Мы поможем в написании ваших работ!