/ / Tassi d'imposta in Excel VBA

Aliquote fiscali in Excel VBA

Di seguito vedremo un programma in Excel VBA che calcola l'imposta su un reddito. Il seguente aliquote fiscali si applicano alle persone residenti in Australia.

Reddito imponibile

Tasse su questo reddito

0 - $ 6.000

zero

$ 6,001 - $ 35,000

15c per ogni $ 1 oltre $ 6.000

$ 35,001 - $ 80,000

$ 4,350 più 30c per ogni $ 1 su $ 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:

Aliquote fiscali in Excel VBA

1. In primo luogo, dichiariamo due variabili doppie. Una doppia variabile che chiamiamo reddito e una doppia variabile che chiamiamo tassa.

Dim income As Double
Dim tax As Double

2. Inizializziamo il reddito variabile con il valore della cella A2 e arrotondiamolo.

income = Round(Range("A2").Value)

3. Riportiamo nuovamente il valore arrotondato nella cella A2.

Range("A2").Value = income

4. Usiamo l'istruzione Select Case per calcolare l'imposta su un reddito. Excel VBA utilizza entrate per testare ogni successiva dichiarazione Case per vedere se il codice sotto la dichiarazione Case deve essere eseguito.

Select Case income
    Case Is >= 180001
        tax = 55850 + 0.45 * (income - 180000)
    Case Is >= 80001
        tax = 17850 + 0.38 * (income - 80000)
    Case Is >= 35001
        tax = 4350 + 0.3 * (income - 35000)
    Case Is >= 6001
        tax = 0.15 * (income - 6000)
    Case Else
        tax = 0
End Select

Esempio: se il reddito è 37000, l'imposta è pari a 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950

5. Scriviamo il valore della variabile imposta sulla cella B2.

Range("B2").Value = tax

6. Inserire questo codice in un pulsante di comando e testarlo.

Risultato:

Tassi d'imposta risultato

Leggi anche: