كيفية حساب الضريبة على الدخل الإجمالي IRG

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على أشرف المرسلين سيدنا محمد وعلى آله وصحبه ومن تبعهم بإحسان إلى يوم الدين.
نبداء بحساب الضريبة لدينا خمس حالات:
اولا :   س =<22500 حيث س= اجر المنصب - الضريبة 9% - منحة المنطقة (اجر المنصب = الاجر الخام - منحة العائلية)
IRG=(س/10)×10-15000×20%
ثانيا :   28750>س>22500
IRG=(س/10)×10-22500×12%+1500 حيث IRG(22500)=1500
ثالثا:   30000>س>28750
IRG=(س/10)×10-28750×20%+2250 حيث IRG(28750)=2250
رابعا:   120000>س>30000
IRG=(س/10)×10-30000×30%+2500 حيث IRG(30000)=2500
خامسا:   س>120000
IRG=(س/10)×10-120000×35% %+29500 حيث IRG(120000)=29500

حسب ما سبق واذا لم تتغير النسب 20%,12%,20%,30% و 35% يمكننا حساب IRG الجديدة 2020 كمايلي في الملف المرفق

اخوكم شتوح عبدالعزيز ولا تبخلونا بالدعاء للوالدين

السلام عليكم ورحمة الله وبركاته 
الملف المرفق لحساب الضريبة على الدخل



شتوح عبدالعزيز
حاسي بحبح

حساب IRG 2020
لدينا 
15000-22500=7500---------->30000+7500=37500
22500-28750=6250---------->6250+37500=43750
28750-30000=1250---------->43750+1250=45000
30000-120000=90000-------->45000+90000=135000
نعوض القيم الجديدة
اولا :   س =<37500حيث س= اجر المنصب - الضريبة 9% - منحة المنطقة (اجر المنصب = الاجر الخام - منحة العائلية)
IRG=(س/10)×10-30000×20%
ثانيا :   43750>س>37500
IRG=(س/10)×10-37500×12%+1500 حيث IRG(37500)=1500
ثالثا:   45000>س>43750
IRG=(س/10)×10-43750×20%+2250 حيث IRG(43750)=2250
رابعا:   135000>س>45000
IRG=(س/10)×10-45000×30%+2500 حيث IRG(45000)=2500
خامسا:   س>135000
IRG=(س/10)×10-135000×35% %+29500 حيث IRG(135000)=29500


شتوح عبدالعزيز

شكرا لك
و هذا ماكرو حصري للعملية لادراجه مع اكسل و اكسس

الكود:

Function IRG_New(moTr)
 
moTr = (Int(moTr / 10)) * 10
 
Select Case moTr
    Case 0 To 30000: IRG_New = 0
    Case 30010 To 37500: IRG_New = ((moTr - 30000) / 10) * 2
    Case 37510 To 43750: IRG_New = 1500 + ((moTr - 37500) / 10) * 1.2
    Case 43760 To 45000: IRG_New = 2250 + ((moTr - 43750) / 10) * 2
    Case 45010 To 135000: IRG_New = 2500 + ((moTr - 45000) / 10) * 3
    Case Is > 135000: IRG_New = 29500 + ((moTr - 135000) / 10) * 3.5
End Select
 
End Function

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]