/ / Verokannat Excel VBA: ssa

Verokannat Excel VBA: ssa

Alla tarkastelemme ohjelmaa Excel VBA joka laskee tuloveroa. Seuraavat verokantoja sovelletaan henkilöihin, jotka ovat Australian asukkaita.

Verotettava tulo

Tämän tulon verotus

0 - 6 000 dollaria

Nolla

6 001 - 35 000 dollaria

15c jokaista $ 1 yli $ 6,000

35 001 - 80 000 dollaria

$ 4,350 plus 30c jokaista $ 1 yli $ 35,000

80 001 - 180 000 dollaria

$ 17,850 plus 38c jokaista $ 1 yli $ 80,000

$ 180,001 ja yli

$ 55.850 plus 45c jokaista $ 1 yli $ 180.000


Tilanne:

Verokannat Excel VBA: ssa

1. Ensin mainitsemme kaksi kaksoismuuttujaa. Yksi kaksinkertainen muuttuja, jota kutsumme tuloiksi, ja yksi kaksinkertainen muuttuja jota kutsumme veroiksi.

Dim income As Double
Dim tax As Double

2. Alustamme vaihtelevat tulot solun A2 arvoon ja pyöristetään sen ympärille.

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

3. Asettamme pyöristetty arvo soluun A2 uudelleen.

Range("A2").Value = income

4. Käytämme Select Case -ilmoitusta tulon verottamiseen. Excel VBA käyttää tuloja testaamaan jokaisen seuraavan tapausselosteen, jotta voidaan selvittää, onko Case-ilmoituksen mukainen koodi suoritettava.

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

Esimerkki: jos tulot ovat 37000, vero on 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 dollaria

5. Muuttujan veron arvo kirjoitetaan soluun B2.

Range("B2").Value = tax

6. Aseta tämä koodi komentopainikkeeseen ja testaa se.

Tulos:

Verokantojen tulos

Lue myös: