Abaixo, veremos um programa em Excel VBA que calcula o imposto sobre uma renda. Os seguintes taxas de impostos aplicam-se a indivíduos residentes na Austrália.
Rendimentos tributáveis |
Imposto sobre esta renda |
---|---|
0 - $6,000 |
Nada |
$6,001 - $35,000 |
15c para cada $ 1 acima de $ 6.000 |
$35,001 - $80,000 |
$ 4.350 mais 30c para cada $ 1 acima de $ 35.000 |
$80,001 - $180,000 |
$ 17.850 mais 38c para cada $ 1 sobre $ 80.000 |
$ 180.001 e mais |
$ 55.850 mais 45c para cada $ 1 sobre $ 180.000 |
Situação:
1. Primeiro, declaramos duas variáveis duplas. Uma variável dupla chamamos de renda e uma variável dupla chamamos de imposto.
Reduzir a renda como o dobro
Dim tax As Double
2. Inicializamos a renda variável com o valor da célula A2 e o arredondamos.
renda = redondo (intervalo ("A2"). Valor)
3. Colocamos o valor arredondado na célula A2 novamente.
Faixa ("A2"). Valor = renda
4. Usamos a declaração Select Case para calcular o imposto sobre uma renda. O Excel VBA usa a receita para testar cada instrução Case subsequente para ver se o código da instrução Case deve ser executado.
Selecione a renda do caso
Case Is> = 180001
imposto = 55850 + 0,45 * (renda - 180000)
Case Is> = 8.0001
imposto = 17850 + 0,38 * (renda - 80.000)
Case Is> = 35001
imposto = 4350 + 0,3 * (renda - 35000)
Caso É> = 6001
imposto = 0,15 * (renda - 6.000)
Case Else
imposto = 0
End Select
Exemplo: se a renda for 37.000, o imposto é igual a 4.350 + 0,3 * (37.000-35.000) = 4.350 + 600 = $ 4.950
5. Escrevemos o valor da taxa variável na célula B2.
Intervalo ("B2"). Valor = imposto
6. Coloque este código em um botão de comando e teste-o.
Resultado: