Реферат Використання Visual Basic for Applications в автоматизації банківських операцій

Тема: Курсовые обзорные

Sub differen_kr ()

'розрахунок кредиту диференційованим методом ("B3"). Value = "Диференційований" = Sum/(12 * Sroc)

'розрахунок виплати по основному боргу, виплати за відсотками, і всього боргу

For i = 1 To Sroc * 12 = Sum - (i - 1) * osn = ostatok * Ps/12 = proc + osn = Sum1 + osn = Sum2 + proc = Sum3 + plat (i + 10, 1). Value = i (i + 10, 2). Value = osn (i + 10, 3). Value = proc (i + 10, 4). Value = plati

Sub

Підпрограма розрахунку кредитів аннуітентним методом:

Sub annyitent_kr ()

'розрахунок кредитів аннуітентним методом

Range ("B3"). Value = "Аннуітентний" = (Sum * Ps/12)/(1 - (1 + Ps/12) ^ (-Sroc * 12))

'розрахунок виплати по основному боргу, виплати за відсотками, і всього боргу

For i = 1 To Sroc * 12 = Sum - Sum1 = ostatok * Ps/12 = plat - proc = Sum1 + osn = Sum2 + proc = Sum3 + plat (i + 10, 1). Value = i (i + 10, 2). Value = osn (i + 10, 3). Value = proc (i + 10, 4). Value = plati

Sub

Підпрограма розрахунку депозиту:

Private Sub RaschetDEP_Click ()

sumdep.Value = "" Then 'показати помилку, якщо не введена сума депозиту "Введіть суму депозиту",, ZaglSubIf

srokdep.Value = "" Then 'показати помилку, якщо не введена сума депозиту "Введіть термін депозиту",, ZaglSubIf

IsNumeric (sumdep.Value) = False Then 'показати помилку, якщо неправильно введена сума депозиту "Неправильно введена сума депозиту",, ZaglSubIf

IsNumeric (srokdep.Value) = False Then 'показати помилку, якщо неправильно введений термін депозиту "Неправильно введений термін депозиту",, ZaglSubIf

'привласнення змінним значень, що вводяться користувачем

Sum = CDbl (sumdep.Value) = CInt (srokdep.Value)

'перевірка на правильність введення терміну депозітаSroc <1 Then "Мінімальний термін депозиту - 1 місяць"

Exit SubIf

Sroc> 120 Then

MsgBox "Максимальний термін депозиту - 10 років" SubIf

'пріcваіваніе процентної ставки залежно від терміну депозиту

If Sroc> = 1 And Sroc <= 24 Then Ps = 0.05Sroc> 24 And Sroc <= 60 Then Ps = 0.06

If Sroc> 60 Then Ps = 0.08

'перевірка введеної суми депозітаSum <250 Then "Мінімальна сума депозиту - 250 рублів"

Exit SubIf

. Clear 'очищення осередків