A continuación, veremos un programa en Excel VBA que calcula el impuesto sobre la renta. La siguiente las tasas de impuestos se aplican a personas que residen en Australia.
|
Ingreso imponible |
Impuesto sobre esta renta |
|---|---|
|
0 - $6,000 |
Nulo |
|
$6,001 - $35,000 |
15 centavos 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 sobre $ 180,000 |
Situación:
1. Primero, declaramos dos variables dobles. Una doble variable la llamamos renta y una doble variable la llamamos impuestos.
Ingresos atenuados como el doble
Impuesto reducido como doble
2. Inicializamos la renta variable con el valor de la celda A2 y la redondeamos.
ingresos = Ronda (Rango ("A2"). Valor)
3. Volvemos a colocar el valor redondeado en la celda A2.
Rango ("A2"). Valor = ingresos
4. Usamos la declaración Select Case para calcular el impuesto sobre un ingreso. Excel VBA utiliza los ingresos para probar cada declaración de caso posterior para ver si se debe ejecutar el código debajo de la declaración de caso.
Seleccionar ingresos por caso
El caso es> = 180001
impuesto = 55850 + 0,45 * (ingresos - 180000)
El caso es> = 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 otro
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 de la variable impuesto en la celda B2.
Rango ("B2"). Valor = impuestos
6. Coloque este código en un botón de comando y pruébelo.
Resultado:
