Реферат Розробка програми для автоматичного розрахунку кредитних і депозитних операцій за допомогою Visual Basic for Applications

= "Кредитні та депозитні операції"

'показати помилку, якщо не введена ПІБ клієнта

If fio. Value = "" Then

MsgBox "Введіть ПІБ клієнта",, Zaglav

Exit Sub

End If

'показати помилку, якщо не обраний вид платежу

If an. Value = False And dif. Value = False Then "виберіть вид платежу",, Zaglav Sub

End If

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

If summkred. Value = "" Then "Введіть суму кредиту",, Zaglav Sub

End If

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

If srockred. Value = "" Then

MsgBox "Введіть термін кредитування",, Zaglav

Exit Sub

End If

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

If IsNumeric (summkred. Value) = False Then "Неправильно введена сума кредиту",, Zaglav

Exit Sub

End If

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

If IsNumeric (srockred. Value) = False Then "Неправильно введений термін кредитування",, Zaglav

Exit Sub

End If

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

Summ = CDbl (summkred. Value) = CInt (srockred. Value)

'перевірка терміну кредитування

If Sroc <1 Then

MsgBox "Мінімальний термін кредитування - 1 рік",, Zaglav

Exit SubIfSroc> 40 Then "Максимальний термін кредитування - 40 років",, Zaglav

Exit Sub

End If

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

If Sroc> = 1 And Sroc <= 3 Then Pz = 0.1Sroc> 3 And Sroc <= 5 Then Pz = 0.09Sroc> 5 Then Pz = 0.08

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

Cells. Clear

'введення значень

Range ("A1"). Value = "Ф. І.О. клієнта: "

Range ("A2"). Value = "Тип операції:" ("A3"). Value = "Тип платежу:" ("A4"). Value = "Сума кредиту:" ("A5"). Value = "Термін кредитування:"

Range ("A6"). Value = "Процентна ставка:"

Range ("A7"). Value = "Початковий внесок (%):"

Range ("A8"). Value = "Початковий внесок:"

Range ("A10: D10"). Font. Bold = True ("A10"). Value ...