/ / Rata de impozitare în Excel VBA

Ratele de impozitare în Excel VBA

Mai jos ne vom uita la un program în Excel VBA care calculează impozitul pe venit. Următoarele ratele de impozitare se aplică persoanelor fizice rezidente din Australia.

Venitul impozabil

Impozite pe aceste venituri

0 - 6.000 $

Zero

6 001 - 35 000 de dolari

15c pentru fiecare $ 1 peste 6000 $

35 000 - 80 000 dolari

4.350 $ plus 30c pentru fiecare $ 1 cu peste 35.000 $

80 000 - 180 000 dolari

17.850 $ plus 38c pentru fiecare $ 1 peste 80.000 $

$ 180.001 și peste

55.850 $ plus 45c pentru fiecare $ 1 cu peste 180.000 $


Situatie:

Ratele de impozitare în Excel VBA

1. În primul rând, declarăm două variabile duble. O variabilă dublă pe care o numim venit și o variabilă dublă pe care o numim impozit.

Dim income As Double
Dim tax As Double

2. Inițializăm venitul variabil cu valoarea celulei A2 și rotunjim.

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

3. Din nou, introduceți valoarea rotunjită în celula A2.

Range("A2").Value = income

4. Folosim declarația Select Case pentru a calcula impozitul pe venit. Excel VBA folosește venit pentru a testa fiecare declarație de caz ulterior pentru a vedea dacă codul din instrucțiunea Case ar trebui să fie executat.

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

Exemplu: dacă venitul este de 37000, taxa este egală cu 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 $

5. Se scrie valoarea taxei variabile în celula B2.

Range("B2").Value = tax

6. Plasați acest cod într-un buton de comandă și testați-l.

Rezultat:

Rezultatul taxelor de impozitare

De asemenea, citiți: