A continuación vamos a ver un programa en Excel VBA que calcula el impuesto sobre los ingresos. Los siguientes tipos impositivos aplicables a las personas que son residentes de 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

Situación:

Tax Rates in Excel VBA

  1. En primer lugar, declaramos dos variables dobles. Una renta variable doble que llamamos, y una doble variable que llamamos impuestos.

Dim income As Double

Dim tax As Double

  1. inicializar la renta variable con el valor de la celda A2 y alrededor de ella.

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

  1. colocamos el valor redondeado en la celda A2 de nuevo.

Range("A2").Value = income

  1. Utilizamos el enlace: / VBA-ejemplos de selección de los casos [Select Case] declaración para calcular el impuesto sobre los ingresos. Excel VBA utiliza el ingreso para probar cada instrucción Case posterior para ver si el código bajo la instrucción Case debe ser ejecutado.

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

Ejemplo: si el ingreso es 37000, el impuesto es igual a 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950 5. Escribimos el valor del impuesto variable para la celda B2.

Range("B2").Value = tax

  1. Coloque este código en un botón de comando y probarlo.

Resultado:

Tax Rates Result