Spodaj si bomo ogledali program v Excel VBA ki obračunava davek na dohodek. Naslednji davčne stopnje veljajo za posameznike, ki prebivajo v Avstraliji.
|
Obdavčeni dohodki |
Davek na ta dohodek |
|---|---|
|
0 - $6,000 |
Nič |
|
$6,001 - $35,000 |
15c za vsakih 1 USD nad 6000 USD |
|
$35,001 - $80,000 |
4.350 USD plus 30c za vsakih 1 USD nad 35.000 USD |
|
$80,001 - $180,000 |
17.850 USD plus 38c za vsakih 1 USD nad 80.000 USD |
|
180.001 USD in več |
55.850 USD plus 45c za vsakih 1 USD nad 180.000 USD |
Situacija:
1. Najprej razglasimo dve dvojni spremenljivki. Eno dvojno spremenljivko imenujemo dohodek, eno dvojno spremenljivko pa davek.
Zmanjšajte dohodek kot dvojni
Zmanjšajte davek kot dvojni
2. Spremenljiv dohodek inicializiramo z vrednostjo celice A2 in ga zaokrožimo.
dohodek = okrogel (razpon ("A2"). Vrednost)
3. Zaokroženo vrednost znova vstavimo v celico A2.
Razpon ("A2"). Vrednost = dohodek
4. Za izračun davka na dohodek uporabljamo izjavo Select Case. Excel VBA z dohodkom preizkusi vsako naslednjo izjavo o primeru, da preveri, ali je treba izvesti kodo pod stavkom primera.
Izberite Dohodek primera
Primer je> = 180001
davek = 55850 + 0,45 * (dohodek - 180000)
Primer je> = 80001
davek = 17850 + 0,38 * (dohodek - 80000)
Primer je> = 35001
davek = 4350 + 0,3 * (dohodek - 35000)
Primer je> = 6001
davek = 0,15 * (dohodek - 6000)
Primer drugače
davek = 0
Konec Izberite
Primer: če je dohodek 37000, je davek enak 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 USD
5. Vrednost variabilnega davka zapišemo v celico B2.
Razpon ("B2"). Vrednost = davek
6. To kodo vnesite v ukazni gumb in jo preizkusite.
Rezultat:
