Ниже мы рассмотрим программу на Excel VBA который рассчитывает налог на прибыль. Следующие налоговые ставки применяются к лицам, проживающим в Австралии.
Налогооблагаемый доход |
Налог на этот доход |
---|---|
0 - $6,000 |
Ноль |
$6,001 - $35,000 |
15 центов за каждый 1 доллар сверх 6000 долларов США |
$35,001 - $80,000 |
4350 долларов США плюс 30 центов за каждый 1 доллар сверх 35 000 долларов США |
$80,001 - $180,000 |
17 850 долларов США плюс 38 центов за каждый 1 доллар сверх 80 000 долларов США |
180 001 $ и больше |
55 850 долларов США плюс 45 центов за каждый 1 доллар сверх 180 000 долларов США |
Ситуация:
1. Сначала мы объявляем две переменные типа double. Одну двойную переменную мы называем доходом, а одну двойную переменную - налогом.
Тусклый доход как двойной
Тусклый налог как двойной
2. Инициализируем переменный доход значением ячейки A2 и округляем его.
доход = Круглый (Диапазон ("A2"). Значение)
3. Мы снова помещаем округленное значение в ячейку A2.
Диапазон ("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)
Case Else
налог = 0
Конец Выбрать
Пример: если доход 37000, налог равен 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 долларов.
5. Записываем значение переменной налога в ячейку B2.
Диапазон ("B2"). Стоимость = налог
6. Поместите этот код в командную кнопку и проверьте его.
Результат: