/ / Porezne stope u programu Excel VBA

Porezne stope u programu Excel VBA

U nastavku ćemo pogledati program u Excel VBA koji izračunava porez na prihod. Sljedeće porezne stope primjenjuju se na pojedince koji su stanovnici Australije.

Oporezivi dohodak

Porez na taj dohodak

0 - 6.000 dolara

Nula

$ 6.001 - $ 35.000

15c za svaki $ 1 preko 6.000 dolara

$ 35.001 - $ 80.000

$ 4.350 plus 30 c za svaki $ 1 preko 35.000 dolara

$ 80.001 - $ 180.000

17.850 $ plus 38 c za svaki $ 1 preko 80.000 dolara

$ 180.001 i više

$ 55.850 plus 45c za svaki $ 1 preko $ 180.000


Situacija:

Porezne stope u programu Excel VBA

1. Prvo, izjavljujemo dvije dvostruke varijable. Jedna dvostruka varijabla zovemo prihod, a jedna dvostruka varijabla koju zovemo porez

Dim income As Double
Dim tax As Double

2. Inicijaliziramo varijabilni dohodak s vrijednošću ćelije A2 i okrugli.

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

3. Zaokruženu vrijednost postavimo u ćeliju A2 ponovno.

Range("A2").Value = income

4. Koristimo izjavu Select Case za izračunavanje poreza na prihod. Excel VBA koristi prihode za testiranje svakog kasnijeg izvatka da bi se utvrdio treba li izvršiti kôd iz izjave o slučaju.

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

Primjer: ako je dohodak 37000, porez iznosi 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 $

5. Vrijednost varijabilnog poreza upisujemo u ćeliju B2.

Range("B2").Value = tax

6. Stavite ovaj kod u gumb naredbe i testirati ga.

Proizlaziti:

Rezultat poreznog stanja

Također pročitajte: