Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Використання Visual Basic for Applications в автоматизації банківських операцій

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





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

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

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


'висновок підказки для запуску програми ("C2"). Value = "Запуск програми:"' визначення властивостей осередків; введення значень

Range ("D2"). Value = "Ctrl + Z" ("A1"). Value = "П.І.Б. клієнта: "(" A2 "). Value =" Тип операції "(" A3 "). Value =" Тип платежу: "

Range ("A4"). Value = "Сума кредиту, руб:" ("A5"). Value = "Термін кредитування, років:" ("A6" ). Value = "Процентна ставка:" ("A7"). Value = "Початковий внесок,%:" ("A8"). Value = "Початковий внесок, руб:"

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

Range ("A10"). Value = "№ місяця" ("B10"). Value = "Оплата за основним боргом, руб" ("C10"). Value = "Оплата за відсотками, руб" ("D10"). Value = "Щомісячні платежі, руб"

Range ("E9"). Value = "Разом:" ("E9"). Font.Bold = True

Range ("F9"). Value = "Плата за основним боргом" ("G9"). Value = "Плата за відсотками" ("H9"). Value = " ; Загальна плата: "

Range ("B1"). NumberFormat = "general" 'визначення формату осередків

Range ("B2"). NumberFormat = "Кредит" ("B3"). NumberFormat = "general" 'загальний ("B4"). NumberFormat = "0.00 $ "'грошовий (" B5 "). NumberFormat =" 0год (а) "(" B6 "). NumberFormat =" 0.00% "(" B7 "). NumberFormat =" 0.00% " ; ("B8"). NumberFormat = "0.00 $" ("B10: D500"). NumberFormat = "0.00 $" ("E10: H10"). NumberFormat = "0.00 $"

("A: D"). ColumnWidth = 30 'визначення ширини колонок ("E"). ColumnWidth = 10 ("F: H"). ColumnWidth = 25


Range ("B1"). Value = FIO 'введення вихідних значень в робочий лист

Range ("B2"). Value = "Кредит" ("B4"). Value = Sum ("B5"). Value = Sroc ("B6"). Value = Ps ("B7"). Value = 0.5 ("B8"). Value = Sum * 0.5


Sum = Sum - Sum * 0.5


'обнулення змінних

ostatok = 0 = 0 = 0 = 0 = 0

Sum2 = 0 = 0


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

If difkr.Value = True Thendifferen_kr

End If


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

If ankr.Value = True Thenannyitent_krIf


'висновок підсумків ("F10"). Value = Sum1 ("G10"). Value = Sum2 ("H10"). Value = Sum3

кредіт.Hide ("Кредит"). Activate ActiveChart.Name


End Sub


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


Назад | сторінка 11 з 15 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Оптимізація та управління технологічним процесом обслуговування АТС (на при ...
  • Реферат на тему: Обчислення подвійних інтегралів методом осередків
  • Реферат на тему: Розробка програми для автоматичного розрахунку кредитних і депозитних опера ...
  • Реферат на тему: Процентна і облікова ставки кредиту. Процентна ставка дисконтування
  • Реферат на тему: Розрахунок міттєвіх значень Струму тріфазної системи АІН-АД в сіловій схемі ...