/ / Taxas de imposto no Excel VBA

Taxas de imposto no Excel VBA

Abaixo, vamos olhar para 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 este rendimento

0 - US $ 6.000

Nada

US $ 6.001 - US $ 35.000

15c para cada US $ 1 acima de US $ 6.000

US $ 35.001 - US $ 80.000

US $ 4.350 mais 30c para cada US $ 1 acima de US $ 35.000

US $ 80.001 - US $ 180.000

US $ 17.850 mais 38c para cada US $ 1 acima de US $ 80.000

US $ 180.001 e mais

$ 55,850 mais 45c para cada $ 1 acima de $ 180,000


Situação:

Taxas de imposto no Excel VBA

1. Primeiro, declaramos duas variáveis ​​duplas. Uma variável dupla, chamamos renda, e uma variável dupla, chamamos de imposto.

Dim income As Double
Dim tax As Double

2. Inicializamos a renda variável com o valor da célula A2 e a arredondamos.

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

3. Colocamos o valor arredondado na célula A2 novamente.

Range("A2").Value = income

4. Usamos a declaração Select Case para calcular o imposto sobre uma renda. O Excel VBA usa receita para testar cada instrução Case subsequente para ver se o código sob a instrução Case deve ser executado.

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

Exemplo: se a receita for 37000, o imposto é igual a 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950

5. Escrevemos o valor do imposto variável para a célula B2.

Range("B2").Value = tax

6. Coloque este código em um botão de comando e teste-o.

Resultado:

Resultado das Taxas Fiscais

Leia também: