/ / Skattesatser i Excel VBA

Skattesatser i Excel VBA

Nedan ser vi på ett program i Excel VBA som beräknar skatten på en inkomst. Det följande skattesatser gäller för personer som är bosatta i Australien.

Beskattningsbar inkomst

Skatt på denna inkomst

0 - $ 6000

Noll

$ 6,001 - $ 35,000

15c för varje $ 1 över $ 6,000

$ 35,001 - $ 80,000

$ 4,350 plus 30c för varje $ 1 över $ 35,000

$ 80,001 - $ 180,000

$ 17.850 plus 38c för varje $ 1 över $ 80.000

$ 180,001 och över

$ 55.850 plus 45c för varje $ 1 över $ 180.000


Situation:

Skattesatser i Excel VBA

1. Först deklarerar vi två dubbelvariabler. En dubbelvariabel vi kallar inkomst, och en dubbelvariabel vi kallar skatt.

Dim income As Double
Dim tax As Double

2. Vi initierar det rörliga inkomsterna med värdet av cell A2 och runda det.

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

3. Vi placerar det avrundade värdet i cell A2 igen.

Range("A2").Value = income

4. Vi använder Select Case-satsen för att beräkna skatten på en inkomst. Excel VBA använder inkomst för att testa varje efterföljande fallutlåtande för att se om koden under fallet ska utföras.

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

Exempel: om intäkterna är 37000 är skatt lika med 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950

5. Vi skriver värdet av den rörliga skatten till cell B2.

Range("B2").Value = tax

6. Placera den här koden i en kommandoknapp och testa den.

Resultat:

Skattesatser Resultat

Läs också: