/ / Nodokļu likmes programmā Excel VBA

Nodokļu likmes programmā Excel VBA

Tālāk mēs apskatīsim programmu programmā Excel VBA kas aprēķina ienākuma nodokli. Sekojošais nodokļu likmes attiecas uz personām, kuras ir Austrālijas iedzīvotāji.

Ar nodokli apliekamie ienākumi

Nodoklis par šiem ienākumiem

0 - 6000 $

Nulle

$ 6,001 - $ 35,000

15 c par katru $ 1 virs $ 6000

$ 35,001 - $ 80,000

$ 4350 plus 30c par katru $ 1 virs $ 35,000

$ 80,001 - $ 180,000

$ 17850 plus 38c par katru $ 1 virs $ 80,000

$ 180,001 un vairāk

$ 55850 plus 45c par katru $ 1 virs $ 180,000


Situācija:

Nodokļu likmes programmā Excel VBA

1. Pirmkārt, mēs deklarējam divus divus mainīgos lielumus. Vienu divkāršu mainīgo mēs saucam par ienākumiem, un vienu divkāršu mainīgo mēs saucam par nodokli.

Dim income As Double
Dim tax As Double

2. Mēs inicializējam mainīgo ienākumu ar šūnu A2 vērtību un ap to.

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

3. Novietojam noapaļoto vērtību šūnā A2 vēlreiz.

Range("A2").Value = income

4. Mēs izmantojam izlases paziņojumu, lai aprēķinātu ienākuma nodokli. Excel VBA izmanto ienākumus, lai pārbaudītu katru nākamo gadījuma pārskatu, lai noskaidrotu, vai ir jāizpilda kods gadījuma paziņojumā.

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

Piemērs: ja ienākumi ir 37000, nodoklis ir vienāds ar 4350 + 0,3 * (37000-35000) = 4350 + 600 = $ 4950

5. Mēs norādām mainīgā nodokļa vērtību šūnai B2.

Range("B2").Value = tax

6. Ievietojiet šo kodu komandu pogā un pārbaudiet to.

Rezultāts:

Nodokļu likmju rezultāts

Lasīt arī: