/ / Mokesčio tarifai "Excel VBA"

Mokesčių tarifai Excel VBA

Žemiau apžvelgsime programą Excel VBA kuris apskaičiuoja pajamų mokestį. Sekantis mokesčių tarifai taikoma asmenims, kurie yra Australijos gyventojai.

Apmokestinamos pajamos

Mokestis už šias pajamas

0 - 6000 USD

Nulis

$ 6,001 - $ 35,000

15c už kiekvieną $ 1 per 6000 $

$ 35,001 - $ 80,000

4 350 dolerių ir 30c už kiekvieną 1 dolerį virš 35 000 dolerių

$ 80,001 - $ 180,000

17 850 JAV dolerių ir 38 C už kiekvieną 1 USD per 80 000 USD

$ 180,001 ir daugiau

$ 55,850 ir 45c už kiekvieną $ 1 per 180,000 dolerių


Padėtis:

Mokesčių tarifai Excel VBA

1. Pirma, deklaruojame du dvigubus kintamuosius. Vienas dvigubas kintamasis, kurį mes vadiname pajamomis, ir vienas dvigubas kintamasis, kurį vadiname mokesčiu

Dim income As Double
Dim tax As Double

2. Mes inicializuojame kintamąsias pajamas su langeliais A2 ir aplink jį.

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

3. Mes vėl suapvalinsime langelį A2.

Range("A2").Value = income

4. Mes apskaičiuojame pajamų mokestį naudodamiesi "Pasirinktojo atvejo" ataskaita. "Excel VBA" naudoja pajamas, kad išbandytų kiekvieną vėlesnio atvejo ataskaitą, kad įsitikintumėte, ar turi būti įvykdytas kodas pagal atvejo ataskaitą.

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

Pavyzdys: jei pajamos yra 37000, mokestis lygus 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 USD

5. Kintamojo mokesčio vertę įrašome į langelį B2.

Range("B2").Value = tax

6. Įdėkite šį kodą į komandų mygtuką ir jį patikrinkite.

Rezultatas:

Mokesčių tarifų rezultatas

Taip pat perskaitykite: