Nedan kommer vi att titta på ett program i Excel VBA som beräknar skatten på en inkomst. Det följande skattesatser gäller personer som är bosatta i Australien.
Beskattningsbar inkomst |
Skatt på denna inkomst |
---|---|
0 - $6,000 |
Noll |
$6,001 - $35,000 |
15c för varje $ 1 över $ 6000 |
$35,001 - $80,000 |
$ 4350 plus 30c för varje $ 1 över $ 35.000 |
$80,001 - $180,000 |
17 850 $ plus 38c för varje $ 1 över $ 80 000 |
$ 180,001 och över |
$ 55.850 plus 45c för varje $ 1 över $ 180.000 |
Situation:
1. Först deklarerar vi två dubbla variabler. En dubbel variabel kallar vi inkomst, och en dubbel variabel kallar vi skatt.
Dim inkomst som dubbel
Dim skatt som dubbel
2. Vi initierar den rörliga inkomsten med värdet av cell A2 och rundar den.
inkomst = runda (intervall ("A2"). värde)
3. Vi placerar det avrundade värdet i cell A2 igen.
Område ("A2"). Värde = inkomst
4. Vi använder Select Case -uttalandet för att beräkna skatten på en inkomst. Excel VBA använder inkomster för att testa varje efterföljande ärendebesked för att se om koden under ärendebeskedet ska köras.
Välj fallinkomst
Fall är> = 180001
skatt = 55850 + 0,45 * (inkomst - 180000)
Fall är> = 80001
skatt = 17850 + 0,38 * (inkomst - 80000)
Fall är> = 35001
skatt = 4350 + 0,3 * (inkomst - 35000)
Fall är> = 6001
skatt = 0,15 * (inkomst - 6000)
Case Else
skatt = 0
Avsluta Välj
Exempel: om inkomsten är 37000, så är skatt 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950
5. Vi skriver värdet på variabeln skatt till cell B2.
Område ("B2"). Värde = skatt
6. Placera denna kod i en kommandoknapp och testa den.
Resultat: