Poniżej przyjrzymy się programowi w Excel VBA który oblicza podatek od dochodu. Następujące wysokość podatków mają zastosowanie do osób, które są mieszkańcami Australii.
|
Dochód do opodatkowania |
Podatek od tego dochodu |
|---|---|
|
0 - $6,000 |
Zero |
|
$6,001 - $35,000 |
15c za każdego 1 dolara powyżej 6000 dolarów |
|
$35,001 - $80,000 |
4350 $ plus 30 centów za każdego 1 dolara powyżej 35 000 $ |
|
$80,001 - $180,000 |
17 850 $ plus 38 centów za każdego 1 $ powyżej 80 000 $ |
|
180 001 USD i więcej |
55 850 $ plus 45 centów za każdego 1 dolara powyżej 180 000 $ |
Sytuacja:
1. Najpierw deklarujemy dwie zmienne podwójne. Jedną zmienną podwójną nazywamy dochodem, a jedną zmienną podwójną nazywamy podatkiem.
Dim dochód jako podwójny
Podatek od dim jako podwójny
2. Dochód zmienny inicjujemy wartością komórki A2 i zaokrąglamy.
dochód = Round(Zakres("A2").Wartość)
3. Ponownie umieszczamy zaokrągloną wartość w komórce A2.
Zakres("A2").Wartość = dochód
4. Do obliczenia podatku od dochodu używamy zestawienia Select Case. Excel VBA wykorzystuje dochód do testowania każdego kolejnego zestawienia Case, aby sprawdzić, czy kod pod zestawieniem Case powinien zostać wykonany.
Wybierz dochód ze sprawy
Przypadek jest >= 180001
podatek = 55850 + 0,45 * (dochód - 180000)
Przypadek >= 80001
podatek = 17850 + 0,38 * (dochód - 80000)
Przypadek jest >= 35001
podatek = 4350 + 0,3 * (dochód - 35000)
Przypadek >= 6001
podatek = 0,15 * (dochód - 6000)
Przypadek inny
podatek = 0
Koniec Wybierz
Przykład: jeśli dochód wynosi 37000, podatek wynosi 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 USD
5. W komórce B2 zapisujemy wartość podatku zmiennego.
Zakres("B2").Wartość = podatek
6. Umieść ten kod w przycisku polecenia i przetestuj go.
Wynik:
