/ / Taux de taxes dans Excel VBA

Taux d'imposition dans Excel VBA

Ci-dessous, nous examinerons un programme en Excel VBA qui calcule l'impôt sur un revenu. Le suivant les taux d'imposition s'appliquent aux personnes qui résident en Australie.

Revenu imposable

Impôt sur ce revenu

0 - 6 000 $

Néant

6 001 $ - 35 000 $

15c pour chaque 1 $ de plus de 6 000 $

35 001 $ - 80 000 $

4 350 $ plus 30c pour chaque dollar dépassant les 35 000 $

80 001 $ - 180 000 $

17 850 $ plus 38c pour chaque dollar dépassant les 80 000 $

180 001 $ et plus

55 850 $ plus 45 c. Pour chaque dollar dépassant 180 000 $


Situation:

Taux d'imposition dans Excel VBA

1. Tout d'abord, nous déclarons deux doubles variables. Nous appelons revenu une variable double et une impôt double variable.

Dim income As Double
Dim tax As Double

2. On initialise le revenu variable avec la valeur de la cellule A2 et on l'arrondit.

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

3. Nous plaçons à nouveau la valeur arrondie dans la cellule A2.

Range("A2").Value = income

4. Nous utilisons l'instruction Select Case pour calculer l'impôt sur un revenu. Excel VBA utilise Income pour tester chaque instruction Case suivante afin de déterminer si le code sous l'instruction Case doit être exécuté.

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

Exemple: si le revenu est de 37 000 $, l’impôt est égal à 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 $

5. Nous écrivons la valeur de la variable tax dans la cellule B2.

Range("B2").Value = tax

6. Placez ce code dans un bouton de commande et testez-le.

Résultat:

Résultat des taux d'imposition

Lisez aussi: