По -долу ще разгледаме програма в Excel VBA който изчислява данъка върху дохода. Следното данъчни ставки се прилага за лица, които са жители на Австралия.
|
Облагаем приход |
Данък върху този доход |
|---|---|
|
0 - $6,000 |
Няма |
|
$6,001 - $35,000 |
15c за всеки $ 1 над $ 6,000 |
|
$35,001 - $80,000 |
$ 4 350 плюс 30c за всеки $ 1 над $ 35 000 |
|
$80,001 - $180,000 |
$ 17,850 плюс 38c за всеки $ 1 над $ 80,000 |
|
$ 180 001 и повече |
$ 55 850 плюс 45c за всеки $ 1 над $ 180 000 |
Ситуация:
1. Първо, декларираме две двойни променливи. Една двойна променлива наричаме доход и една двойна променлива наричаме данък.
Умалете дохода като двоен
Отрицателен данък като двоен
2. Инициализираме променливия доход със стойността на клетка A2 и го закръгляваме.
доход = кръг (диапазон ("A2"). Стойност)
3. Поставяме отново закръглената стойност в клетка A2.
Диапазон ("A2"). Стойност = доход
4. Използваме изявлението Select Case за изчисляване на данъка върху дохода. Excel VBA използва доход за тестване на всеки следващ отчет за случай, за да види дали кодът под декларацията за случай трябва да бъде изпълнен.
Изберете Приход доход
Делото е> = 180001
данък = 55850 + 0,45 * (доход - 180000)
Делото е> = 80001
данък = 17850 + 0,38 * (доход - 80000)
Делото е> = 35001
данък = 4350 + 0,3 * (доход - 35000)
Делото е> = 6001
данък = 0,15 * (доход - 6000)
Дело иначе
данък = 0
Край Изберете
Пример: ако доходът е 37000, данъкът е равен на 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 долара
5. Записваме стойността на променливия данък в клетка В2.
Диапазон ("B2"). Стойност = данък
6. Поставете този код в команден бутон и го тествайте.
Резултат:
