U nastavku ćemo pogledati program u Excel VBA koji obračunava porez na dohodak. Sljedeće porezne stope primjenjuju se na pojedince koji su stanovnici Australije.
Oporezivi prihod |
Porez na ovaj prihod |
---|---|
0 - $6,000 |
Nula |
$6,001 - $35,000 |
15c za svaki 1 USD iznad 6000 USD |
$35,001 - $80,000 |
4.350 USD plus 30c za svaki 1 USD iznad 35.000 USD |
$80,001 - $180,000 |
17.850 USD plus 38c za svaki 1 USD iznad 80.000 USD |
180.001 USD i više |
55 850 USD plus 45c za svaki 1 USD iznad 180 000 USD |
Situacija:
1. Prvo, deklariramo dvije dvostruke varijable. Jednu dvostruku varijablu nazivamo prihodom, a jednu dvostruku varijablu porezom.
Umanji prihod kao dvostruko
Umanji porez kao dvostruki
2. Pokrećemo varijabilni prihod s vrijednošću ćelije A2 i zaokružujemo ga.
prihod = okrugli (raspon ("A2"). Vrijednost)
3. Zaokruženu vrijednost ponovno stavljamo u ćeliju A2.
Raspon ("A2"). Vrijednost = prihod
4. Za izračunavanje poreza na prihod koristimo izjavu Select Case. Excel VBA koristi prihod za testiranje svake sljedeće izjave slučaja kako bi vidio treba li izvršiti kôd pod izjavom slučaja.
Odaberite prihod prihoda
Slučaj je> = 180001
porez = 55850 + 0,45 * (prihod - 180000)
Slučaj je> = 80001
porez = 17850 + 0,38 * (prihod - 80000)
Slučaj je> = 35001
porez = 4350 + 0,3 * (prihod - 35000)
Slučaj je> = 6001
porez = 0,15 * (prihod - 6000)
Drugi slučaj
porez = 0
Kraj Odaberite
Primjer: ako je prihod 37000, porez je jednak 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 USD
5. Vrijednost varijabilnog poreza upisujemo u ćeliju B2.
Raspon ("B2"). Vrijednost = porez
6. Postavite ovaj kôd u naredbeni gumb i testirajte ga.
Proizlaziti: