Žemiau apžvelgsime programą Excel VBA kuris apskaičiuoja pajamų mokestį. Sekantis mokesčių tarifus taikomas asmenims, kurie yra Australijos gyventojai.
|
Apmokestinamos pajamos |
Mokestis nuo šių pajamų |
|---|---|
|
0 - $6,000 |
Ne |
|
$6,001 - $35,000 |
15c už kiekvieną 1 USD virš 6 000 USD |
|
$35,001 - $80,000 |
4 350 USD plius 30 c už kiekvieną 1 USD virš 35 000 USD |
|
$80,001 - $180,000 |
17 850 USD plius 38 c už kiekvieną 1 USD virš 80 000 USD |
|
180 001 USD ir daugiau |
55 850 USD plius 45 c už kiekvieną 1 USD virš 180 000 USD |
Situacija:
1. Pirmiausia deklaruojame du dvigubus kintamuosius. Vieną dvigubą kintamąjį vadiname pajamomis, o kitą dvigubą - mokesčiu.
Mažos pajamos kaip dvigubai
Nedidelis mokestis kaip dvigubas
2. Inicijuojame kintamąsias pajamas A2 langelio verte ir suapvaliname.
pajamos = apvalios (diapazonas („A2“). Vertė)
3. Suapvalintą vertę vėl dedame į langelį A2.
Diapazonas („A2“). Vertė = pajamos
4. Pajamų mokesčiui apskaičiuoti naudojame pareiškimą „Pasirinkti atvejį“. „Excel VBA“ naudoja pajamas, kad patikrintų kiekvieną vėlesnį atvejo pareiškimą, norėdama išsiaiškinti, ar kodas, pateiktas pagal atvejo pareiškimą, turėtų būti įvykdytas.
Pasirinkite Bylos pajamos
Byla yra> = 180001
mokestis = 55850 + 0,45 * (pajamos - 180000)
Byla yra> = 80001
mokestis = 17850 + 0,38 * (pajamos - 80000)
Byla yra> = 35001
mokestis = 4350 + 0,3 * (pajamos - 35000)
Byla yra> = 6001
mokestis = 0,15 * (pajamos - 6000)
Kita byla
mokesčiai = 0
Pabaiga Pasirinkite
Pavyzdys: jei pajamos yra 37000, mokestis lygus 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 USD
5. Į langelį B2 įrašome kintamo mokesčio vertę.
Diapazonas („B2“). Vertė = mokestis
6. Įdėkite šį kodą į komandų mygtuką ir išbandykite.
Rezultatas:
