Di seguito vedremo un programma in Excel VBA che calcola l'imposta sul reddito. Il seguente aliquote fiscali si applicano alle persone residenti in Australia.
|
Reddito imponibile |
Imposta su questo reddito |
|---|---|
|
0 - $6,000 |
Nil |
|
$6,001 - $35,000 |
15c per ogni $ 1 oltre $ 6.000 |
|
$35,001 - $80,000 |
$4.350 più 30c per ogni $1 oltre $35.000 |
|
$80,001 - $180,000 |
$ 17.850 più 38c per ogni $ 1 oltre $ 80.000 |
|
$ 180,001 e oltre |
$ 55.850 più 45c per ogni $ 1 oltre $ 180.000 |
Situazione:
1. Innanzitutto, dichiariamo due variabili doppie. Una doppia variabile la chiamiamo reddito e una doppia variabile la chiamiamo tasse.
Reddito debole come doppio
Imposta dim come doppia
2. Inizializziamo la variabile reddito con il valore della cella A2 e la arrotondiamo.
reddito = Round(Range("A2").Value)
3. Inseriamo nuovamente il valore arrotondato nella cella A2.
Intervallo ("A2"). Valore = reddito
4. Usiamo l'istruzione Select Case per calcolare l'imposta su un reddito. Excel VBA utilizza il reddito per testare ogni successiva istruzione Case per vedere se il codice sotto l'istruzione Case deve essere eseguito.
Seleziona il reddito del caso
Il caso è >= 180001
imposta = 55850 + 0,45 * (reddito - 180000)
Il caso è >= 80001
imposta = 17850 + 0,38 * (reddito - 80000)
Il caso è >= 35001
imposta = 4350 + 0,3 * (reddito - 35000)
Il caso è >= 6001
imposta = 0,15 * (reddito - 6000)
Caso Altro
tassa = 0
Fine selezione
Esempio: se il reddito è 37000, l'imposta è uguale a 4350 + 0,3 * (37000-35000) = 4350 + 600 = $4950
5. Scriviamo il valore dell'imposta variabile nella cella B2.
Intervallo ("B2"). Valore = imposta
6. Inserire questo codice in un pulsante di comando e verificarlo.
Risultato:
