Nedenfor ser vi på et program i Excel VBA som beregner skatten på en inntekt. Følgende skattesatser gjelder for personer som er bosatt i Australia.
|
Skattepliktig inntekt |
Skatt på denne inntekten |
|---|---|
|
0 - $6,000 |
Nil |
|
$6,001 - $35,000 |
15c for hver $ 1 over $ 6000 |
|
$35,001 - $80,000 |
$ 4.350 pluss 30c for hver $ 1 over $ 35.000 |
|
$80,001 - $180,000 |
$ 17.850 pluss 38c for hver $ 1 over $ 80.000 |
|
$ 180,001 og over |
$ 55.850 pluss 45c for hver $ 1 over $ 180.000 |
Situasjon:
1. For det første erklærer vi to doble variabler. En dobbel variabel kaller vi inntekt, og en dobbel variabel kaller vi skatt.
Dim inntekt som dobbelt
Dim skatt som dobbelt
2. Vi initialiserer den variable inntekten med verdien av celle A2 og avrunder den.
inntekt = runde (område ("A2"). verdi)
3. Vi plasserer den avrundede verdien i celle A2 igjen.
Område ("A2"). Verdi = inntekt
4. Vi bruker Select Case -uttalelsen til å beregne skatten på en inntekt. Excel VBA bruker inntekt til å teste hver påfølgende saksoppgave for å se om koden under saksoppgaven skal kjøres.
Velg Saksinntekt
Sak er> = 180001
skatt = 55850 + 0,45 * (inntekt - 180000)
Sak er> = 80001
skatt = 17850 + 0,38 * (inntekt - 80000)
Sak er> = 35001
skatt = 4350 + 0,3 * (inntekt - 35000)
Sak er> = 6001
skatt = 0,15 * (inntekt - 6000)
Case Else
skatt = 0
Avslutt Velg
Eksempel: hvis inntekten er 37000, er skatt lik 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950
5. Vi skriver verdien av den variable skatten til celle B2.
Område ("B2"). Verdi = skatt
6. Plasser denne koden i en kommandoknapp og test den.
Resultat:
