Hieronder zullen we kijken naar een programma in Excel VBA die de belasting over een inkomen berekent. Het volgende BELASTINGTARIEVEN gelden voor personen die ingezetenen zijn van Australië.
|
Belastbaar inkomen |
Belasting over dit inkomen |
|---|---|
|
0 - $6,000 |
nul |
|
$6,001 - $35,000 |
15c voor elke $1 meer dan $6.000 |
|
$35,001 - $80,000 |
$ 4.350 plus 30c voor elke $ 1 meer dan $ 35.000 |
|
$80,001 - $180,000 |
$ 17.850 plus 38c voor elke $ 1 meer dan $ 80.000 |
|
$180.001 en meer |
$ 55.850 plus 45c voor elke $ 1 meer dan $ 180.000 |
Situatie:
1. Eerst declareren we twee dubbele variabelen. Een dubbele variabele noemen we inkomen, en een dubbele variabele noemen we belasting.
Dim inkomen als dubbel
Dim belasting als dubbel
2. We initialiseren het variabele inkomen met de waarde van cel A2 en ronden deze af.
inkomen = Rond (Bereik ("A2"). Waarde)
3. We plaatsen de afgeronde waarde opnieuw in cel A2.
Bereik ("A2"). Waarde = inkomen
4. Voor de berekening van de belasting over een inkomen gebruiken wij de opgave Select Case. Excel VBA gebruikt inkomen om elke volgende Case-instructie te testen om te zien of de code onder de Case-instructie moet worden uitgevoerd.
Selecteer Case-inkomsten
Geval is >= 180001
belasting = 55850 + 0,45 * (inkomen - 180000)
Geval is >= 80001
belasting = 17850 + 0,38 * (inkomen - 80000)
Geval is >= 35001
belasting = 4350 + 0,3 * (inkomen - 35000)
Geval is >= 6001
belasting = 0,15 * (inkomen - 6000)
Geval Anders
belasting = 0
Einde selecteren
Voorbeeld: als het inkomen 37000 is, is de belasting gelijk aan 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950
5. We schrijven de waarde van de variabele belasting naar cel B2.
Bereik ("B2"). Waarde = belasting
6. Plaats deze code in een opdrachtknop en test deze.
Resultaat:
