Az alábbiakban megnézzük a programot Excel VBA amely kiszámítja a jövedelem adóját. A következő adókulcsok Ausztráliában élő személyekre vonatkoznak.
|
Adóköteles jövedelem |
E jövedelem adója |
|---|---|
|
0 - $6,000 |
Nulla |
|
$6,001 - $35,000 |
15c minden 1 dollár felett 6000 dollár felett |
|
$35,001 - $80,000 |
4350 dollár plusz 30c minden 1 dollár felett 35 000 dollár felett |
|
$80,001 - $180,000 |
$ 17,850 plusz 38c minden 1 dollár felett 80 000 dollár felett |
|
180 001 USD és több |
$ 55,850 plusz 45c minden 1 dollár felett 180 000 dollár felett |
Helyzet:
1. Először két kettős változót deklarálunk. Egy kettős változót jövedelemnek, egy kettős változót pedig adónak nevezünk.
Halvány jövedelem Dupla
Dim adó Dupla
2. A változó jövedelmet inicializáljuk az A2 cella értékével, és kerekítjük.
jövedelem = Kerek (tartomány ("A2"). Érték)
3. A kerekített értéket ismét az A2 cellába helyezzük.
Tartomány ("A2"). Érték = jövedelem
4. A Select Case nyilatkozatot használjuk a jövedelem adójának kiszámítására. Az Excel VBA a jövedelem segítségével teszteli az összes következő esetkivonatot, hogy megtudja, hogy az Eset utasítás alatt lévő kódot kell -e végrehajtani.
Válassza az Eset bevételeit
Az eset> = 180001
adó = 55850 + 0,45 * (jövedelem - 180000)
Az eset> = 80001
adó = 17850 + 0,38 * (jövedelem - 80000)
Az eset> = 35001
adó = 4350 + 0,3 * (jövedelem - 35000)
Az eset> = 6001
adó = 0,15 * (jövedelem - 6000)
Más eset
adó = 0
Vége Kiválasztás
Példa: ha a jövedelem 37000, az adó 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 USD
5. Írjuk a változó adó értékét a B2 cellába.
Tartomány ("B2"). Érték = adó
6. Helyezze ezt a kódot egy parancsgombba, és próbálja ki.
Eredmény:
