/ / معدلات الضرائب في Excel VBA

معدلات الضرائب في Excel VBA

أدناه سننظر في برنامج في Excel VBA أن يحسب الضريبة على الدخل. ما يلي معدلات الضرائب تنطبق على الأفراد المقيمين في أستراليا.

الدخل الخاضع للضريبة

الضريبة على هذا الدخل

0 - 6000 دولار

صفر

6،001 دولار - 35000 دولار

15 ج لكل 1 دولار أمريكي أكثر من 6000 دولار أمريكي

35.001 دولار - 80.000 دولار

4،350 $ بالإضافة إلى 30c لكل 1 $ أكثر من 35،000 دولار

80.001 دولار - 180.000 دولار

17،850 دولارًا أمريكيًا بالإضافة إلى 38 سنتًا لكل 1 دولارًا أمريكيًا أكثر من 80000 دولار

180.001 دولار وأكثر

55،850 دولارًا أمريكيًا بالإضافة إلى 45 سنتًا لكل 1 دولار أمريكي أكثر من 180،000 دولار أمريكي


موقف:

معدلات الضرائب في Excel VBA

1. أولا ، نعلن اثنين من المتغيرات المزدوجة. متغير واحد مزدوج نسميه الدخل ، ومتغير مزدوج واحد نسميه الضرائب.

Dim income As Double
Dim tax As Double

2. نقوم بتهيئة الدخل المتغير بقيمة الخلية A2 وتقريبه.

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

3. نضع القيمة المستديرة في الخلية A2 مرة أخرى.

Range("A2").Value = income

4. نستخدم بيان Select Case لحساب الضريبة على الدخل. يستخدم Excel VBA الدخل لاختبار كل بيان حالة لاحقًا لمعرفة ما إذا كان يجب تنفيذ الشفرة ضمن بيان الحالة.

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. ضع هذا الرمز في زر أمر واختبره.

نتيجة:

نتيجة الضريبة

اقرأ أيضًا: