/ / Податкові ставки в Excel VBA

Ставки податків у Excel VBA

Нижче ми розглянемо програму в Росії Excel VBA що обчислює податок на прибуток. Наступне податкові ставки застосовуються до осіб, які є резидентами Австралії.

Оподатковуваний дохід

Податок на цей дохід

0 - 6000 доларів США

Ніхто

$ 6,001 - $ 35,000

15с за кожний $ 1 за $ 6000

35 001 долар - 80 000 доларів США

4 350 дол. США плюс 30с за кожний 1 дол. США понад 35 тис. Дол. США

$ 80,001 - $ 180,000

$ 17850 плюс 38c за кожний $ 1 за $ 80,000

$ 180,001 і більше

$ 55850 плюс 45c за кожний $ 1 за $ 180,000


Ситуація:

Ставки податків у Excel VBA

1. По-перше, ми оголошуємо дві подвійні змінні. Одна подвійна змінна, яку ми називаємо доходом, і одна подвійна змінна, яку ми називаємо податком

Dim income As Double
Dim tax As Double

2. Ми ініціалізуємо змінний дохід із значенням клітинки А2 та навколо нього.

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

3. Ми знову розмістимо округлену величину в клітинку А2.

Range("A2").Value = income

4. Ми використовуємо виписку "Вибір справи" для розрахунку податку на дохід. Excel VBA використовує дохід, щоб перевірити кожен наступний опис справи, щоб перевірити, чи повинен виконуватися код у звіті Case.

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

Приклад: якщо прибуток 37000, податок дорівнює 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 доларів США

5. Ми пишемо вартість податку на зміну для клітини B2.

Range("B2").Value = tax

6. Помістіть цей код в командну кнопку та перевірте його.

Результат:

Результати податкових ставок

Також читайте: