Zemāk mēs apskatīsim programmu Excel VBA kas aprēķina ienākuma nodokli. Sekojošais nodokļu likmes attiecas uz personām, kuras ir Austrālijas iedzīvotāji.
Apliekamais ienākums |
Nodoklis par šiem ienākumiem |
---|---|
0 - $6,000 |
Nē |
$6,001 - $35,000 |
15c par katru 1 USD virs 6000 USD |
$35,001 - $80,000 |
4 350 USD plus 30 c par katru 1 USD virs 35 000 USD |
$80,001 - $180,000 |
17 850 USD plus 38 c par katru 1 USD virs 80 000 USD |
180 001 USD un vairāk |
55 850 USD plus 45 c par katru 1 USD virs 180 000 USD |
Situācija:
1. Pirmkārt, mēs deklarējam divus dubultus mainīgos. Vienu dubultu mainīgo mēs saucam par ienākumiem, bet vienu dubultu mainīgo - par nodokli.
Tumši ienākumi Kā dubultā
Dim nodoklis Kā dubultā
2. Mēs inicializējam mainīgo ienākumu ar šūnas A2 vērtību un noapaļojam to.
ienākumi = kārta (diapazons ("A2"). Vērtība)
3. Mēs atkal ievietojam noapaļoto vērtību šūnā A2.
Diapazons ("A2"). Vērtība = ienākumi
4. Mēs izmantojam paziņojumu Select Case, lai aprēķinātu ienākuma nodokli. Excel VBA izmanto ienākumus, lai pārbaudītu katru nākamo gadījuma paziņojumu, lai noskaidrotu, vai ir jāizpilda kods, kas iekļauts paziņojumā par lietu.
Atlasiet lietas ienākumi
Lieta ir> = 180001
nodoklis = 55850 + 0,45 * (ienākumi - 180000)
Lieta ir> = 80001
nodoklis = 17850 + 0,38 * (ienākumi - 80000)
Lieta ir> = 35001
nodoklis = 4350 + 0,3 * (ienākumi - 35000)
Lieta ir> = 6001
nodoklis = 0,15 * (ienākumi - 6000)
Cita lieta
nodoklis = 0
Beigas Atlasīt
Piemērs: ja ienākumi ir 37000, nodoklis ir vienāds ar 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 ASV dolāri
5. Mēs ierakstām mainīgā nodokļa vērtību šūnā B2.
Diapazons ("B2"). Vērtība = nodoklis
6. Ievietojiet šo kodu komandu pogā un pārbaudiet to.
Rezultāts: