Di seguito vedremo un programma in Excel VBA che calcola l’imposta sul reddito. Le seguenti aliquote si applicano alle persone che sono residenti in Australia.

Taxable income Tax on this income

0 – $6,000

Nil

$6,001 – $35,000

15c for each $1 over $6,000

$35,001 – $80,000

$4,350 plus 30c for each $1 over $35,000

$80,001 – $180,000

$17,850 plus 38c for each $1 over $80,000

$180,001 and over

$55,850 plus 45c for each $1 over $180,000

Situazione:

Tax Rates in Excel VBA

  1. In primo luogo, si dichiara due variabili doppie. Un doppio reddito variabile che chiamiamo, e una doppia variabile che chiamiamo fiscale.

Dim income As Double

Dim tax As Double

  1. inizializzare il reddito variabile con il valore della cella A2 e intorno ad esso.

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

  1. posizionare il valore arrotondato nella cella A2 nuovamente.

Range("A2").Value = income

  1. Usiamo il link : / VBA-esempi-select-caso [Select Case] dichiarazione per calcolare l’imposta sul reddito. Excel VBA utilizza reddito per testare ogni successiva istruzione Case per vedere se deve essere eseguito il codice sotto l’istruzione Case.

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, fiscale è pari, 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950 5. Noi scriviamo il valore del tasso variabile a cella B2.

Range("B2").Value = tax

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

Risultato:

Tax Rates Result