Níže se podíváme na program v Excel VBA že vypočítá daň z příjmu. Následující Daňová sazba platí pro jednotlivce, kteří mají bydliště v Austrálii.
|
Zdanitelný příjem |
Daň z tohoto příjmu |
|---|---|
|
0 - $6,000 |
Nula |
|
$6,001 - $35,000 |
15c za každý 1 $ nad 6 000 $ |
|
$35,001 - $80,000 |
4 350 $ plus 30 c za každý 1 $ nad 35 000 $ |
|
$80,001 - $180,000 |
17 850 $ plus 38 c za každý 1 $ nad 80 000 $ |
|
180 001 $ a více |
55 850 $ plus 45 c za každý 1 $ nad 180 000 $ |
Situace:
1. Nejprve deklarujeme dvě dvojité proměnné. Jednu dvojitou proměnnou nazýváme příjem a druhou dvojitou proměnnou nazýváme daň.
Dim příjem jako dvojnásobek
Dim tax As Double
2. Proměnný příjem inicializujeme hodnotou buňky A2 a zaokrouhlíme.
příjem = kolo (rozsah ("A2"). hodnota)
3. Zaokrouhlenou hodnotu opět umístíme do buňky A2.
Rozsah („A2“). Hodnota = příjem
4. K výpočtu daně z příjmu používáme výkaz Select Case. Excel VBA používá příjem k testování každého následujícího příkazu Case, aby zjistil, zda by měl být spuštěn kód pod příkazem Case.
Vyberte možnost Příjem
Případ je> = 18 0001
daň = 55850 + 0,45 * (příjem - 180000)
Případ je> = 80001
daň = 17850 + 0,38 * (příjem - 80000)
Případ je> = 35001
daň = 4350 + 0,3 * (příjem - 35 000)
Případ je> = 6001
daň = 0,15 * (příjem - 6000)
Případ Jinak
daň = 0
Konec Vybrat
Příklad: pokud je příjem 37000, daň se rovná 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 $
5. Do buňky B2 zapíšeme hodnotu proměnné daně.
Rozsah („B2“). Hodnota = daň
6. Umístěte tento kód do příkazového tlačítka a otestujte ho.
Výsledek:
