/ / Adó Árak Excel VBA

Adókulcsok az Excel VBA-ban

Az alábbiakban egy programot nézünk be Excel VBA amely kiszámítja a jövedelemre kivetett adót. A következő adókulcsokat Ausztráliában élő személyekre vonatkoznak.

Adóköteles jövedelem

E jövedelemadó

0 - 6 000 dollár

Nulla

$ 6,001 - $ 35,000

15c mindegyik $ 1-nél több mint 6000 dollárt

$ 35,001 - $ 80,000

$ 4,350 és 30c minden $ 1-nél több mint 35,000 dollárért

$ 80,001 - $ 180,000

17.850 $ és 38 c mindegyik $ 1-nél 80 000 dollárnál

$ 180,001 és újabb

$ 55,850 és 45 c mindegyik $ 1-nél több mint $ 180,000


Helyzet:

Adókulcsok az Excel VBA-ban

1. Először két dupla változót deklarálunk. Egy kettős változó amit jövedelemnek nevezünk, és egy kettős változót hívunk adónak.

Dim income As Double
Dim tax As Double

2. A változó jövedelmet inicializáljuk az A2 cella értékével és körbe.

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

3. A kerekített értéket újra A2 cellába helyezzük.

Range("A2").Value = income

4. A Select Case kivonatot használjuk a bevételre kivetett adó kiszámításához. Az Excel VBA bevételeket használ az egyes esetszámú kivonatok tesztelésére annak megállapításához, hogy az Esettanulmányban szereplő kódot végre kell-e hajtani.

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

Példa: ha a jövedelem 37000, az adó egyenlő 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 $

5. A változó adó értékét a B2 cellára írjuk.

Range("B2").Value = tax

6. Helyezze ezt a kódot parancsgombra és tesztelje.

Eredmény:

Adókulcsok eredményei

Szintén olvasható: