Автор: Пользователь скрыл имя, 08 Февраля 2011 в 17:46, контрольная работа
1. Получить исходные данные
- ставка налога на прибыль (TXRT – tax rate), %
- начальный капитал предприятия (CPo), руб.
- рентабельность предприятия (RN), %
РОССИЙСКАЯ ФЕДЕРАЦИЯ
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ
ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ
ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ
ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
«ТЮМЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»
Выполнил:
Студент 3 курса
VI семестр
Алиев
Вадим Рустамович
Ташкент 2010
Задание
- ставка налога на прибыль (TXRT – tax rate), %
- начальный капитал предприятия (CPo), руб.
- рентабельность предприятия (RN), %
В данной работе расчет провести для значений TXRT от 10% до 80% с шагом в 10%. Значение рентабельности выбирать из указанного диапазона с шагом в 5%
Исходные данные:
СPo = 100, Диапазон значений RN = 10%.....30%
Шаг 1. Вычисляется величина доналоговой прибыли по формуле:
PRF = CP * RN
PRF = 100% * 10% = 1000%
100% * 15% = 1500%
100% * 20% = 2000%
100% * 25% = 2500%
100% * 30% = 3000%
Шаг 2. Вычисляется величина налогового отчисления:
BD = PRF * TXRT
Шаг 3. Вычислить величину капитала предприятия в текущем году:
CP = CP + PRF – BD
ШАГ 4. Увеличить общий объем отчислений в бюджет BDt на величину отчислений за этот год.
Для реализации этого алгоритма необходимо:
- создать рабочую книгу в MS EXCEL
- запустить редактор VBA и создать новый модуль
- в окне
модуля напечатать текст
3. На рабочем листе создать таблицу
4. Выполнить
необходимые расчеты
5. По
полученным данным построить
диаграмму.
Attribute VB_Name = "Module1" | ||||
Function BDt(Cpo, Rn, TXRT, t) | ||||
Dim PRF As Single 'текущая прибыль | ||||
Dim CP As Single 'текущий капитал | ||||
Dim BD As Single 'текущее поступление в бюджет | ||||
Dim i As Integer 'текущий год | ||||
'расчет | ||||
CP = Cpo | ||||
BDt = 0 | ||||
For i = 1 To t | ||||
PRF = CP * Rn | ||||
BD = PRF * TXRT | ||||
CP = CP + PRF - BD | ||||
BDt = BDt + BD | ||||
Next i | ||||
End Function |
Cpo=100 | Rn | ||||||
TXRT | 10% | 15% | 20% | 25% | 30% | ||
10% | 15,19293 | 28,30884 | 47,04262 | 73,43982 | 110,1704 | ||
20% | 28,97312 | 52,64621 | 85,28588 | 129,7934 | 189,8607 | ||
30% | 41,44934 | 73,4606 | 116,0238 | 172,1248 | 245,4643 | ||
40% | 52,72318 | 91,15757 | 140,3899 | 203,0372 | 282,2557 | ||
50% | 62,88946 | 106,1032 | 159,3743 | 224,7321 | 304,5558 | ||
60% | 72,03664 | 118,6272 | 173,8387 | 239,0614 | 315,8772 | ||
70% | 80,24715 | 129,0262 | 184,5311 | 247,574 | 319,0515 | ||
80% | 87,59776 | 137,5665 | 192,0977 | 251,5578 | 316,3391 | ||
Информация о работе Использование табличного редактора MS Excel и VBA в экономических расчетах