Проектирование в среде VBA

curSumKredit = CCur(TxtКредит)

intSrok = CInt(TxtСрокКредита)

Для выполнения вычислений в тело процедуры введите следующие операторы

sngProcent = CSng(TxtСтавка) / intSrok / 100

curPlatZa1mes = curSumKredit * sngProcent

В первом операторе определяется процентная ст

авка за один месяц, во втором вычисляется сумма, начисленная банком по процентам за первый месяц

curSumPlat = 0

Далее в переменную для подсчета начислений по процентам за последующие месяцы засылается 0 для начала выполнения цикла.

For i = 2 To intSrok

curSumPlat = curSumPlat + (curSumKredit - curSumKredit / intSrok * (i - 1)) * sngProcent

Nexti

Далее происходит выполнение цикла.

curSumPlatVsego = curSumPlat + curPlatZa1mes

curSumVozvrat = curSumPlat + curSumKredit

Следующие два оператора вычисляют сумму выплат по процентам и общие выплаты клиента по кредиту.

· Следующий оператор обеспечивают вывод полученного результата в текстовое поле формы

TxtСуммаПлатежей = Format(curSumPlatVsego, "0.00")

TxtВозврат = Format(curSumVozvrat, "0.00")

Для вычисления даты возврата кредита также в тело процедуры введите оператор:

dtmData2 = DateAdd("m", intSrok, dtmData1)

Примечание. Возврат кредита осуществляется через год после заключения кредитного договора.

13.Создайте код процедуры, которая обрабатывает засылание в поле TxtДата1 текущую дату при активации формы. Дважды щелкните на форме TxtДата1. поменяйте название процедуры в верхнем правом окне на Activate. В тело процедуры введите оператор

TxtДата1 = Now

Примечание. Дата выдачи кредита вычисляется на момент выполнения программы.

14.Создайте код процедуры, которая обрабатывает событие «Щелчок на командной кнопке Печать формы»

Дважды щелкните на кнопке Печать формы. В тело процедуры введите оператор, который выведет на печать графический образ окна формы с полученными результатами:

Me.PrintForm

15.Создайте код процедуры, которая обрабатывает событие «Щелчок на командной кнопке Выход».

Дважды щелкните на кнопке Выход. В тело процедуры введите операторы, которые закроют форму.

Unload Me

Set FrmКредит = Nothing

16.Сохраните документ Word вместе с программой в своей папке (имя файла, например, может быть – Кредитование).

17.Запустите программу на выполнение и проверьте ее работу с несколькими комплектами исходных данных.

18.Завершите работу в приложении Microsoft Excel. Закройте окно Excel.

19.Двойным щелчком на имени только что созданного файла откройте его. При открытии ответьте на запрос - отключать ли макросы, нажав кнопку Не отключать макросы, а затем перейдите в окно интегрированной среды разработки приложений редактора Visual Basic и убедитесь, что в нем имеется форма UserForm и у вас имеется возможность снова запустить созданную вами программу Visual Basic.

Литература

1. С Браун Visual Basic 6.0. Учебный курс. - СПб: Питер, 2005.

2. Верб Дж. Программирование в Excel 2003:тетрадь разработчика. Пер. с англ. – М.: КУДИЦ-ОБРАЗ, 2006 – 304 с.

3. Гарнаев А.Ю. Excel, VBA, Internet в экономике и финансах. – СПб. БХВ-Петербург, 2001. – 816 с.

4. Джексон, Мзри, Стонтон, Майк. Финансовое моделирование в ЕхсеІ и VBA: углубленный курс.: Пер. с англ. – М.: Издательский дом "Вильямс", 2006. – 352 с.

5. Додж М., Стинсон К. Ефективна робота з Microsoft Excel 2003. – Спб: Питер, 2005. – 1056 с.

6. Долженков В. А., Колесников Ю. В.Самоучитель Microsoft Excel 2003. – СПб.: БХВ-Петербург, 2005. – 432 с.

7. Лабораторний практикум по информатике и компьютерным технологиям. /Под ред. проф. А.И. Пушкаря. - X.: Издат. Дом "ИНЖЗК", 2004. - 468 с.

8. Олійник А.В., Шацька В.М. Інформаційні системи і технології у фінансових установах: Навчальний посібник. – Львів: "Новий Світ-2000", 2006. – 436 с.

9. Современные компьютерные технологии. /Под ред. проф. А.И. Пушкаря. - X.: Издат. дом "ИНЖЗК", 2004. – 464 с.

10. Райтингер М., Муч Г. Visual Basic 6.0: Пер. с нем. – К.: Издательская группа BHV, 1999, - 720 с.

11. Основи алгоритмізації та програмування/ Федько В. В., Плоткін В. І. – Харків: Веста: Видавництво «Ранок», 2003. – 192 с.

12. Федько В.В. Лабораторный практикум по VBA. Электронный учебник. Фонды ХНЭУ, 2006 – 568 кб.

 Скачать реферат