Stawki podatkowe w Excel VBA

Poniżej przyjrzymy się programowi w Excel VBA który oblicza podatek od dochodu. Następujące wysokość podatków dotyczy osób, które są mieszkańcami Australii.

Dochód do opodatkowania	Podatek od tego dochodu
0 - 6000 USD	Zero
6 001 USD - 35 000 USD	15c za każdy 1 $ ponad 6000 $
35 000 USD - 80 000 USD	4350 USD plus 30 C za każdy 1 USD powyżej 35 000 USD
80 000 USD - 180 000 USD	17,850 USD plus 38 C za każdy 1 USD powyżej 80 000 USD
180,001 USD i więcej	55 850 USD plus 45 C za każdy 1 USD powyżej 180 000 USD

Sytuacja:

1. Najpierw deklarujemy dwie podwójne zmienne. Jedną podwójną zmienną nazywamy dochodem, a jedną podwójną zmienną nazywamy podatkiem.

Dim income As Double
Dim tax As Double

2. Inicjujemy zmienny dochód z wartością komórki A2 i zaokrąglamy ją.

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

3. Ponownie umieszczamy zaokrągloną wartość w komórce A2.

Range("A2").Value = income

4. Używamy instrukcji Select Case do obliczenia podatku od dochodu. Excel VBA używa dochodu do testowania każdego kolejnego oświadczenia Case, aby sprawdzić, czy kod pod oświadczeniem Case powinien zostać wykonany.

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

Przykład: jeśli dochód wynosi 37000, podatek wynosi 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 USD

5. Zapisujemy wartość podatku zmiennego w komórce B2.

Range("B2").Value = tax

6. Umieść ten kod w przycisku poleceń i przetestuj go.

Wynik: