A continuación veremos un programa en Excel VBA que calcula el impuesto sobre la renta. Las siguientes tasas de impuestos se aplican a los individuos que son residentes de Australia.
Renta imponible
Impuesto sobre esta renta
0 – 6.000 dólares
Nulo
6.001 dólares – 35.000 dólares
15c por cada $1 sobre $6,000
35.001 dólares – 80.000 dólares
4.350 dólares más 30 centavos por cada dólar que supere los 35.000 dólares
80.001 dólares – 180.000 dólares
17.850 dólares más 38c por cada $1 sobre 80.000 dólares
180.001 dólares y más
55.850 dólares más 45 centavos por cada dólar que sobrepase los 180.000 dólares
Situación:
1. Primero, declaramos dos variables dobles. Una doble variable que llamamos ingresos, y una doble variable que llamamos impuestos.
El ingreso débil es el doble… El impuesto de la Dimisión es el doble…
2. Inicializamos la renta variable con el valor de la celda A2 y la redondeamos.
ingreso = Redondo(Rango(«A2»).Valor)
3. Colocamos el valor redondeado en la celda A2 de nuevo.
Rango («A2»).Valor = ingreso
4. Usamos la declaración de Select Case para calcular el impuesto sobre la renta. El Excel VBA utiliza los ingresos para probar cada declaración de caso posterior para ver si el código de la declaración de caso debe ser ejecutado.
Seleccione Ingresos del caso El caso es… 180001 impuesto = 55850 + 0.45 * (ingresos – 180000) Caso Is >= 80001 impuesto = 17850 + 0.38 * (ingresos – 80000) El caso es… 35001 impuesto = 4350 + 0.3 * (ingresos – 35000) El caso es… 6001 impuesto = 0.15 * (ingresos – 6000) Caso aparte… impuesto = 0 Finalizar Seleccionar
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 en la celda B2.
Rango («B2»).Valor = impuesto
6. Ponga este código en un botón de comando y pruébelo.
Resultado:
