/ / Tasas de impuestos en Excel VBA

Tasas de impuestos en Excel VBA

A continuación veremos un programa en Excel VBA que calcula el impuesto sobre la renta. El seguimiento las tasas de impuestos Aplicar a las personas que son residentes de Australia.

Ingreso imponible

Impuesto sobre este ingreso

0 - $ 6,000

Nulo

$ 6,001 - $ 35,000

15c por cada $ 1 sobre $ 6,000

$ 35,001 - $ 80,000

$ 4,350 más 30c por cada $ 1 sobre $ 35,000

$ 80,001 - $ 180,000

$ 17,850 más 38c por cada $ 1 sobre $ 80,000

$ 180,001 y más

$ 55,850 más 45c por cada $ 1 más de $ 180,000


Situación:

Tasas de impuestos en Excel VBA

1. Primero, declaramos dos variables dobles. Una doble variable que llamamos ingreso, y una doble variable que llamamos impuesto.

Dim income As Double
Dim tax As Double

2. Inicializamos la renta variable con el valor de la celda A2 y la redondeamos.

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

3. Colocamos el valor redondeado en la celda A2 nuevamente.

Range("A2").Value = income

4. Utilizamos el estado de Select Case para calcular el impuesto sobre un ingreso. Excel VBA usa los ingresos para probar cada declaración de Caso posterior para ver si el código bajo la declaración de Caso debe ejecutarse.

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 a la celda B2.

Range("B2").Value = tax

6. Coloque este código en un botón de comando y pruébelo.

Resultado:

Tasas de impuestos Resultado

Lea también: