Mai jos vom analiza un program în Excel VBA care calculează impozitul pe venit. Următoarele cotele de impozitare se aplică persoanelor care sunt rezidente în Australia.
|
Venitul impozabil |
Impozit pe acest venit |
|---|---|
|
0 - $6,000 |
Zero |
|
$6,001 - $35,000 |
15c pentru fiecare $ 1 peste 6.000 $ |
|
$35,001 - $80,000 |
4.350 USD plus 30c pentru fiecare 1 USD peste 35.000 USD |
|
$80,001 - $180,000 |
17.850 USD plus 38c pentru fiecare 1 USD peste 80.000 USD |
|
180.001 USD și peste |
55.850 USD plus 45c pentru fiecare 1 USD peste 180.000 USD |
Situatie:
1. În primul rând, declarăm două variabile duble. O variabilă dublă o numim venit și o variabilă dublă o numim impozit.
Reduceți venitul ca dublu
Reduceți impozitul ca dublu
2. Inițializăm venitul variabil cu valoarea celulei A2 și îl rotunjim.
venit = Rundă (Interval ("A2"). Valoare)
3. Plasăm din nou valoarea rotunjită în celula A2.
Interval („A2”). Valoare = venit
4. Folosim declarația Select Case pentru a calcula impozitul pe venit. Excel VBA folosește venituri pentru a testa fiecare declarație de caz ulterioară pentru a vedea dacă codul din declarația de caz trebuie executat.
Selectați Venit caz
Cazul este> = 180001
impozit = 55850 + 0,45 * (venit - 180000)
Cazul este> = 80001
impozit = 17850 + 0,38 * (venit - 80000)
Cazul este> = 35001
impozit = 4350 + 0,3 * (venit - 35000)
Cazul este> = 6001
impozit = 0,15 * (venit - 6000)
Alt caz
taxă = 0
Selectare sfârșit
Exemplu: dacă venitul este de 37000, impozitul este egal cu 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 USD
5. Scriem valoarea taxei variabile în celula B2.
Interval („B2”). Valoare = taxă
6. Plasați acest cod într-un buton de comandă și testați-l.
Rezultat:
