У наставку ћемо погледати програм у Екцел ВБА који обрачунава порез на приход. Следеће пореске стопе односе се на појединце који су становници Аустралије.
|
Опорезиви приход |
Порез на овај приход |
|---|---|
|
0 - $6,000 |
Нула |
|
$6,001 - $35,000 |
15ц за сваки 1 УСД преко 6000 УСД |
|
$35,001 - $80,000 |
4.350 УСД плус 30ц за сваки 1 УСД изнад 35.000 УСД |
|
$80,001 - $180,000 |
17.850 УСД плус 38ц за сваки 1 УСД преко 80.000 УСД |
|
180.001 УСД и више |
55 850 УСД плус 45ц за сваки 1 УСД изнад 180 000 УСД |
Ситуација:
1. Прво, декларишемо две двоструке променљиве. Једну двоструку променљиву називамо приходом, а једну двоструку променљиву порезом.
Умањи приход као двоструко
Умањи порез као двоструки
2. Покрећемо варијабилни приход са вредношћу ћелије А2 и заокружујемо га.
приход = округли (опсег ("А2"). Вредност)
3. Поново стављамо заобљену вредност у ћелију А2.
Опсег ("А2"). Вредност = приход
4. Користимо изјаву Селецт Цасе за израчунавање пореза на приход. Екцел ВБА користи приход за тестирање сваке наредне изјаве случаја да види да ли треба извршити код испод изјаве случаја.
Изаберите Приход прихода
Случај је> = 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.
Опсег ("Б2"). Вредност = порез
6. Поставите овај код у командно дугме и тестирајте га.
Резултат:
