Skattesatser i Excel VBA

Nedenfor ser vi på et program i Excel VBA som beregner skatten på en inntekt. Følgende skattesatser gjelder for personer som er innbyggere i Australia.

Skattepliktig inntekt	Skatt på denne inntekten
0 - $ 6000	Nil
$ 6,001 - $ 35,000	15c for hver $ 1 over $ 6,000
$ 35,001 - $ 80,000	$ 4,350 pluss 30c for hver $ 1 over $ 35,000
$ 80,001 - $ 180,000	$ 17.850 pluss 38c for hver $ 1 over $ 80,000
$ 180,001 og over	$ 55.850 pluss 45c for hver $ 1 over $ 180,000

Situasjon:

1. Først erklærer vi to doble variabler. En dobbeltvariabel vi kaller inntekter, og en dobbeltvariabel vi kaller skatt.

Dim income As Double
Dim tax As Double

2. Vi initialiserer den variable inntekt med verdien av celle A2 og runder den.

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

3. Vi plasserer den avrundede verdien i celle A2 igjen.

Range("A2").Value = income

4. Vi bruker Select Case-setningen for å beregne skatt på en inntekt. Excel VBA bruker inntekt for å teste hver påfølgende Case-setning for å se om koden under Case-setningen skal utføres.

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

Eksempel: Hvis inntekten er 37000, er skatt lik 4350 + 0.3 * (37000-35000) = 4350 + 600 = $ 4950

5. Vi skriver verdien av den variable skatten til celle B2.

Range("B2").Value = tax

6. Plasser denne koden i en kommandoknapp og test den.

Resultat: