/ / BTW-tarieven in Excel VBA

Belastingtarieven in Excel VBA

Hieronder zullen we een programma bekijken in Excel VBA die de belasting op een inkomen berekent. Het volgende BELASTINGTARIEVEN van toepassing op personen die ingezetenen van Australië zijn.

Belastbaar inkomen

Belasting op dit inkomen

0 - $ 6000

nul

$ 6,001 - $ 35.000

15c voor elke $ 1 meer dan $ 6.000

$ 35.001 - $ 80.000

$ 4.350 plus 30c voor elke $ 1 meer dan $ 35.000

$ 80.001 - $ 180.000

$ 17.850 plus 38c voor elke $ 1 meer dan $ 80.000

$ 180,001 en ouder

$ 55,850 plus 45c voor elke $ 1 meer dan $ 180.000


Situatie:

Belastingtarieven in Excel VBA

1. Eerst verklaren we twee dubbele variabelen. Eén dubbele variabele noemen we inkomen en één dubbele variabele noemen we belasting.

Dim income As Double
Dim tax As Double

2. We initialiseren het variabele inkomen met de waarde van cel A2 en daaromheen.

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

3. We plaatsen de afgeronde waarde opnieuw in cel A2.

Range("A2").Value = income

4. We gebruiken de Select Case-verklaring om de belasting op een inkomen te berekenen. Excel VBA gebruikt inkomsten om elke volgende Case-opdracht te testen om te zien of de code onder de case-opdracht moet worden uitgevoerd.

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

Voorbeeld: als het inkomen 37.000 is, is de belasting gelijk aan 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950

5. We schrijven de waarde van de variabele belasting naar cel B2.

Range("B2").Value = tax

6. Plaats deze code in een opdrachtknop en test deze.

Resultaat:

Resultaat van belastingtarieven

Lees ook: