Nedenfor ser vi på et program i Excel VBA der beregner skatten på en indkomst. Det følgende skattesatser gælder for personer, der er bosiddende i Australien.
Skattepligtig indkomst |
Skat af denne indkomst |
---|---|
0 - $6,000 |
Nil |
$6,001 - $35,000 |
15c for hver $ 1 over $ 6.000 |
$35,001 - $80,000 |
$ 4.350 plus 30c for hver $ 1 over $ 35.000 |
$80,001 - $180,000 |
$ 17.850 plus 38c for hver $ 1 over $ 80.000 |
$ 180.001 og derover |
$ 55.850 plus 45c for hver $ 1 over $ 180.000 |
Situation:
1. For det første erklærer vi to dobbelte variabler. En dobbelt variabel kalder vi indkomst, og en dobbelt variabel kalder vi skat.
Dim indkomst som dobbelt
Dim skat som dobbelt
2. Vi initialiserer den variable indkomst med værdien af celle A2 og afrunder den.
indkomst = runde (område ("A2"). værdi)
3. Vi placerer den afrundede værdi i celle A2 igen.
Område ("A2"). Værdi = indkomst
4. Vi bruger Select Case -opgørelsen til at beregne skatten på en indkomst. Excel VBA bruger indkomst til at teste hver efterfølgende sagserklæring for at se, om koden under sagserklæringen skal udføres.
Vælg sagindkomst
Sag er> = 180001
skat = 55850 + 0,45 * (indkomst - 180000)
Sag er> = 80001
skat = 17850 + 0,38 * (indkomst - 80000)
Sag er> = 35001
skat = 4350 + 0,3 * (indkomst - 35000)
Sag er> = 6001
skat = 0,15 * (indkomst - 6000)
Sag ellers
moms = 0
Afslut Vælg
Eksempel: hvis indkomsten er 37000, er skat lig med 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950
5. Vi skriver værdien af den variable skat til celle B2.
Område ("B2"). Værdi = skat
6. Placer denne kode i en kommandoknap, og test den.
Resultat: