/ / Пореске стопе у Екцелу ВБА

Пореске стопе у Екцел ВБА

У наставку ћемо погледати програм Екцел ВБА који обрачунава порез на доходак. Следећи пореске стопе примењују се на лица која су резиденти Аустралије.

Опорезиви приход

Порез на овај приход

0 - 6.000 долара

Нула

$ 6,001 - $ 35,000

15ц за сваки $ 1 преко $ 6,000

$ 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. Прво, објављујемо две двоструке варијабле. Једну двоструку варијаблу коју зовемо приходом, и једну двоструку варијаблу коју зовемо порезом

Dim income As Double
Dim tax As Double

2. Иницијализирамо варијабилни приход с вриједношћу ћелије А2 и окрућимо га.

income = Round(Range("A2").Value)

3. Поново поставимо заобљену вредност у ћелију А2.

Range("A2").Value = income

4. Користимо изјаву Селецт Цасе за израчунавање пореза на приход. Екцел ВБА користи доходак за тестирање сваког наредног извода случаја да види да ли треба извршити код из Изјаве случајева.

Select Case income
    Case Is >= 180001
        tax = 55850 + 0.45 * (income - 180000)
    Case Is >= 80001
        tax = 17850 + 0.38 * (income - 80000)
    Case Is >= 35001
        tax = 4350 + 0.3 * (income - 35000)
    Case Is >= 6001
        tax = 0.15 * (income - 6000)
    Case Else
        tax = 0
End Select

Пример: ако је приход 37000, порез једнак 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 долара

5. Напишемо вредност варијабилне таксе на ћелију Б2.

Range("B2").Value = tax

6. Поставите овај код у командно дугме и тестирајте га.

Резултат:

Резултати пореских стопа

Такође прочитајте: