Нижче ми розглянемо програму в Excel VBA що розраховує податок на прибуток. Наступні ставки податку стосується осіб, які проживають в Австралії.
Оподатковуваний дохід |
Податок на цей дохід |
---|---|
0 - $6,000 |
Нуль |
$6,001 - $35,000 |
15c за кожні 1 долар понад 6 000 доларів |
$35,001 - $80,000 |
$ 4 350 плюс 30c за кожні 1 долар понад 35 000 доларів |
$80,001 - $180,000 |
17 850 доларів плюс 38 с за кожні 1 долар понад 80 000 доларів |
$ 180 001 і більше |
55 850 $ плюс 45c за кожен 1 долар понад 180 000 доларів |
Ситуація:
1. Спочатку ми оголошуємо дві подвійні змінні. Одну подвійну змінну ми називаємо доходом, а одну подвійну змінну - податком.
Удвічі зменшити дохід
Зменшити податок як подвійний
2. Ми ініціалізуємо змінний дохід значенням комірки А2 і округлюємо його.
дохід = круглий (діапазон ("A2"). Вартість)
3. Знову поміщаємо округлене значення у клітинку А2.
Діапазон ("A2"). Значення = дохід
4. Ми використовуємо оператор Select Case для розрахунку податку на дохід. Excel VBA використовує дохід для перевірки кожної наступної заяви Case, щоб побачити, чи слід виконувати код у заяві Case.
Виберіть Дохід справи
Випадок>> 180001
податок = 55850 + 0,45 * (дохід - 180000)
Випадок> = 80001
податок = 17850 + 0,38 * (дохід - 80000)
Випадок>> 35001
податок = 4350 + 0,3 * (дохід - 35000)
Випадок>> 6001
податок = 0,15 * (дохід - 6000)
Справа в іншому
податок = 0
Кінець Виберіть
Приклад: якщо дохід 37000, податок дорівнює 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 доларів
5. Записуємо значення змінного податку в клітинку В2.
Діапазон ("В2"). Вартість = податок
6. Вставте цей код у командну кнопку та протестуйте його.
Результат: