Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VBA]Автоматизация расчета экономических задач

Автор: Ki11eR0k 8.11.2007, 16:33

Фирма решила закупить определенный ассортимент продукции для продажи и определила необходимые для этого средства в размере 3 000 000 руб. Для этих целей фирма берет кредит в размере 3 000 000 руб. под 20% годовых на 2 года.
1.Создайте на листе Excel таблицу с исходными данными.
2.Создайте функцию для расчета ежемесячных выплат по процентам.
3.Подсчитайте общую сумму выплат по кредиту, с учетом процентов.
4.Определите сумму переплаты.

Автор: kapbepucm 9.11.2007, 09:44

Пусть размер кредита будет в ячейке A1 (3000000), годовая процентная ставка- в B1 (20%), срок кредита- в C1 (2). Тогда

Код

Public Function Zadanije2() As Currency
  Zadanije2 = ActiveSheet.Cells(1, 1) * ActiveSheet.Cells(1, 2) / 12'расчет ежемесячных выплат по процентам
End Function
Public Function Zadanije3() As Currency
  Zadanije3 = ActiveSheet.Cells(1, 1) + Zadanije2 * 12 * ActiveSheet.Cells(1, 3)'общая сумма выплат по кредиту, с учетом процентов
End Function
Public Function Zadanije4() As Currency
  Zadanije4 = Zadanije3 - ActiveSheet.Cells(1, 1)'сумма переплаты
End Function

С учётом того, что кредит "классический" (простые проценты). Т.е. сумма выплаты процентов на определённый момент не зависит от общей суммы ежемесячных выплат по процентам. И основная сумма выплачивается в конце срока. Берите кредит в JPY ((;

Автор: Ki11eR0k 10.11.2007, 05:18

Спасибо kapbepucm очень выручил smile