/ / Daňové sadzby v programe Excel VBA

Daňové sadzby v programe Excel VBA

Nižšie sa pozrieme na program v sekcii Excel VBA ktorý vypočítava daň z príjmu. Nasledujúci daňové sadzby platí pre jednotlivcov, ktorí sú rezidentmi Austrálie.

Zdaniteľný príjem

Daň z týchto príjmov

0 - 6 000 dolárov

nula

6 000 - 35 000 dolárov

15c za každý 1 dolár nad 6 000 USD

35 000 - 80 000 dolárov

$ 4 350 plus 30 c za každý $ 1 cez $ 35 000

80 000 - 180 000 dolárov

17 850 dolárov plus 38 c za každý 1 dolár nad 80 000 dolárov

180 a viac a viac

55 850 dolárov plus 45 c za každý 1 dolár nad 180 000 dolárov


situácie:

Daňové sadzby v programe Excel VBA

1. Najprv vyhlasujeme dve dvojité premenné. Jedna dvojitá premenná, ktorú nazývame príjem, a jedna dvojitá premenná, ktorú nazývame daň.

Dim income As Double
Dim tax As Double

2. Inicializujeme variabilný príjem s hodnotou bunky A2 a zaokrúhame.

income = Round(Range("A2").Value)

3. Opäť zaokrúhľujeme na bunku A2.

Range("A2").Value = income

4. Na výpočet dane z príjmu používame výpis Select Case. Aplikácia Excel VBA používa príjmy na otestovanie každého nasledujúceho príkazu Case, aby zistil, či by mal byť spustený kód v príkaze Case.

Select Case income
    Case Is >= 180001
        tax = 55850 + 0.45 * (income - 180000)
    Case Is >= 80001
        tax = 17850 + 0.38 * (income - 80000)
    Case Is >= 35001
        tax = 4350 + 0.3 * (income - 35000)
    Case Is >= 6001
        tax = 0.15 * (income - 6000)
    Case Else
        tax = 0
End Select

Príklad: ak je príjem 37000, daň sa rovná 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 USD

5. Napíšeme hodnotu premennej dane na bunku B2.

Range("B2").Value = tax

6. Umiestnite tento kód do príkazového tlačidla a otestujte ho.

výsledok:

Výsledok daňových sadzieb

Tiež si prečítajte: