طريقة جديدة لحساب الضريبة

[التواتي محمد]

طريقة جديدة لحساب الضريبة


من خلال دراساتنا الجامعية لمقياس الجباية رأينا أن الضريبة على المرتبات والأجور تحسب بطريقة جدول الضريبة التصاعدية أي حسب جدول يعتمد على مجالات ، ربما البعض لا يفهمني ؟ سأوضح لكم ما لاحظته من خلال دراستي لجدول الضريبة لسنة 2008 هذا الجدول الطويل والممل المكون من 54 صفحة . يمكن إختصاره كما يلي :
المجــــــــــــــال نسبة الضريبة الزيادة التصاعدية
من 15.000.00 إلى 22.500.00 20% لاشيء
من 22.500.00 إلى 28.750.00 12% 1.500.00
من 28.750.00 إلى 30.000.00 20% 2.250.00
من 30.000.00 فما فوق 30% 2.500.00
لاحظ معي بعض الأمثلة :
إذا كان لديك مثلا المبلغ الخاضع للضريبة هو 23.653.25 فإنك تقرأ في الجدول المبلغ المقرب التالي 23.650.00 و ستجد أن الضريبة تساوي 1.638.00 ، يمكن حساب الضريبة من الجدول المختصر كما يلي :
1/ نأخذ المبلغ 23.650.00 ونطرحه من الحد الأدنى للمجال الثاني كما يلي 23.650.00- 22.500.00 = 1.150.00
= 138.00 %كما يلي 1.150.00 * 12 12%2/ نضرب الناتج في
3/ نقوم بجمع المبلغ 138.00+1.500.00 = 1.638.00 وهو المبلغ الموجود في جدول الضريبة 2008 .
4/ 1.500.00 هي الزيادة التصاعدية للمجال الثاني .
جرب العملية مع كل المجالات وستجد أن الناتج يطابق نتائج جدول الضربية 2008 .
أرجوا أن أكون قد وفقت في ملاحظاتي وأرجوا منكم تقييم هذ المجهود البسيط ، وفي الأخير أرجوا منكم الدعاء بالخير .

رابط الملف للتحميل لطريقة حساب الضربية

​

​

http://adf.ly/40wxP

 

[التواتي محمد]

ملف خاص بحساب الضريبة

http://adf.ly/40x6G

 

[التواتي محمد]

حساب الضريبة على صفحة اكسس 2003

http://adf.ly/40x7i

 

[التواتي محمد]

هذه محاولة من أخيكم بخصوص حساب الضريبة في ملف إكسل ، احاول شرح كيفية استعمالها.
1- تفضل بفتح برنامج اكسل ، قم أولا بالدخول الى الخيارات ، قم باختيار أمان الماكرو ، اختر بعدها مستوى *ضعيف*
2- قم بالضغط على الزر الايمن للفأرة تظهر لك قائمة اختر التعليمات البرمجية بالعربية أو visualiser le code باللغة الفرنسية بعدها تفتح لك صفحة التعليمات البرمجية
3- قم بالنقر على insertion اختر module تفتح لك صفحة لادراج التعليمات البرمجية.
4- انسخ هذه التعليمات البرمجية والصقها بها.

Function irg(i)
i = Format(i, "000.00")
p = Right(i, 4)
If i > 15000 Then
If i > 15000 And i < 22510 Then
irg = (i - p - 15000) / 5
End If
If i >= 22510 And i < 28760 Then
irg = ((i - p - 22500) * 0.12) + 1500
End If
If i >= 28760 And i < 30010 Then
irg = ((i - p - 28750) / 5) + 2250
End If
If i >= 30010 Then
irg = ((i - p - 30000) / 10 * 3) + 2500
End If
End If
End Function

5- انقر على débogage ثم انقر compiler vbaproject
6- اغلق هذه الصفحة ، ثم عد ورقة العمل بنفس الملف ، ثم افرض خانة الخاضع للضريبة مثلا a1 واختر خانة أخرى من اجل ناتج العملية مثلا b1 ضع فيها هذه الدالة: =irg(a1)
في الاخير أؤكد لو اتبعت الخطوات ، ستكون النتيجة مضبوطة.
الرجاء لمن جربها أن يرد ويقيم هذه المحاولة. وشكرا للجميع .
اليكم صفحة اكسس 2003 لحساب الضريبة:

​

http://adf.ly/40xCU