align="justify"> Види банківських операцій
3. середу MS Excel для автоматизації розрахунків та аналізу даних
Написали програму для розрахунку кредитних операцій (для аннуітентних і диференційованих платежів) та депозитних операцій з урахуванням щомісячної капіталізації відсотка.
Завдяки виконанню курсової були отримані знання про Visual Basic for Applications, також було здійснено знайомство з програмуванням в середовищі Microsoft Excel. p align="justify"> програмування алгоритм комерційний банк
Використана літратура
1.С. Роман, В«Використання макросів в ExcelВ» - М., 2004р. p> 2.Е. Нагіна, В. Іщенко, В«Visual Basic for Applications. Практика В»- Воронеж, 2009р. p>. Інтернет-ресурси:
glossary.ru <# "justify"> Додаток 1
Лістинг програми
(UserForm1)
Option Explicit
SaveName, Sv, Ex, Op, save 'оголошення змінних
Dim Sum As Double 'сума кредиту
Dim Sum1, Sum2, Sum3 As Double 'сума за осн. боргом, процентами та загальна сума
Dim Ps As Double 'процентна ставкаplat As Double' щомісячна плата
Dim osn As Double 'плата за основним долгуproc As Double' плата за відсотками
Dim ostatok As Double 'залишок задолженностіi As Integer
Dim Sroc As Integer 'термін кредитування/депозітаZagl As String = "Кредитні та депозитні операції"
Підпрограма розрахунку кредиту:
Private Sub RaschetCR_Click ()
sumkr.Value = "" Then 'показати помилку, якщо не введена сума кредиту "Введіть суму кредиту",, ZaglSubIf
srokkr.Value = "" Then 'показати помилку, якщо не введена сума кредиту "Введіть термін кредитування",, ZaglSubIf
IsNumeric (sumkr.Value) = False Then 'показати помилку, якщо неправильно введена сума кредиту "Неправильно введена сума кредиту",, ZaglSubIf
IsNumeric (srokkr.Value) = False Then 'показати помилку, якщо неправильно введений термін кредитування "Неправильно введений термін кредитування",, ZaglSubIf
'привласнення змінним значень, що вводяться користувачем
Sum = CDbl (sumkr.Value) = CInt (srokkr.Value)
'перевірка на п равильна введення терміну кредітованіяSroc <1 Then "Мінімальний термін кредитування - 1 рік"
Exit SubIf
Sroc> 40 Then
MsgBox "Максимальний термін кредитування - 40 років" SubIf
'пріcваівані...
