Nižšie sa pozrieme na program v Excel VBA ktorá vypočíta daň z príjmu. Nasledujúci sadzby dane sa vzťahujú na jednotlivcov, ktorí majú bydlisko v Austrálii.
|
Zdaniteľný príjem |
Daň z tohto príjmu |
|---|---|
|
0 - $6,000 |
Nil |
|
$6,001 - $35,000 |
15c za každý 1 dolár nad 6 000 dolárov |
|
$35,001 - $80,000 |
4 350 dolárov plus 30 c za každý 1 dolár nad 35 000 dolárov |
|
$80,001 - $180,000 |
17 850 dolárov plus 38 c za každý 1 dolár nad 80 000 dolárov |
|
180 001 dolárov a viac |
55 850 dolárov plus 45 c za každý 1 dolár nad 180 000 dolárov |
Situácia:
1. Najprv deklarujeme dve dvojité premenné. Jednu dvojitú premennú nazývame príjem a jednu dvojitú premennú nazývame daň.
Dim príjem ako dvojnásobok
Dim tax As Double
2. Inicializujeme variabilný príjem hodnotou bunky A2 a zaokrúhlime ju.
príjem = kolo (rozsah ("A2"). hodnota)
3. Zaokrúhlenú hodnotu opäť umiestnime do bunky A2.
Rozsah („A2“). Hodnota = príjem
4. Na výpočet dane z príjmu používame výpis Select Case. Excel VBA používa príjem na testovanie každého nasledujúceho príkazu Case, aby zistil, či je potrebné vykonať kód pod príkazom Case.
Vyberte Prípadový prípad
Prípad je> = 18 0001
daň = 55850 + 0,45 * (príjem - 180000)
Prípad je> = 80001
daň = 17850 + 0,38 * (príjem - 80 000)
Prípad je> = 35001
daň = 4350 + 0,3 * (príjem - 35 000)
Prípad je> = 6001
daň = 0,15 * (príjem - 6000)
Prípad inak
daň = 0
Ukončiť výber
Príklad: ak je príjem 37 000, daň sa rovná 4350 + 0,3 * (37 000-35 000) = 4350 + 600 = 4950 dolárov
5. Do bunky B2 napíšeme hodnotu variabilnej dane.
Rozsah („B2“). Hodnota = daň
6. Vložte tento kód do príkazového tlačidla a otestujte ho.
Výsledok:
