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

هناك طريقة رائعة لكن يجب توفر جدول الضريبة على الدخل في الإكسل

السلام عليكم ورحمة الله وبركاته : لدي حوالي ثمانية أسطر تعليمات برمجية على VB في الاكسل ، تطوي جدول الضريبة وتجعله في الارشيف ، فقط بادخال هذه التعليمات في موديل بصفحة التعليمات البرمجية ب :اكسل ، ثم تظهر كدالة * مضبوطة 100/100.

من فضلك أخي الكريم زودنا به جازاك الله بألف خير............salh

والله غير دوختني
انا الحمد لله عندي برنامج حساب الراتب
يحسب كلش وحدو
يعطيك الصحة خويا
وبارك الله فيك على المجهودات الجبارة

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

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

السلام عليكم ورحمة الله وبركاته ، هذه محاولة من أخيكم بخصوص حساب الضريبة في ملف إكسل ، احاول شرح كيفية استعمالها.
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 لحساب الضريبة:
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

kadi كتب:وعد الحر دين عليه
من خلال دراساتنا الجامعية لمقياس الجباية رأينا أن الضريبة على المرتبات والأجور تحسب بطريقة جدول الضريبة التصاعدية أي حسب جدول يعتمد على مجالات ، ربما البعض لا يفهمني ؟ سأوضح لكم ما لاحظته من خلال دراستي لجدول الضريبة لسنة 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 .
أرجوا أن أكون قد وفقت في ملاحظاتي وأرجوا منكم تقييم هذ المجهود البسيط ، وفي الأخير أرجوا منكم الدعاء بالخير .

بارك الله فيك وتقبل الله منا ومنكم الصيام والقيام

ورمضان كريم

بارك الله في الجميع
عندي بعض المعلومات البسيطة في البرمجة على أكسس
المشكلة عندي هي حساب الضريبة على أكسس و كذلك كيفية تحويل الأرقام إلى حروف .

إن شاء الله أجد ضالتي هنا

رمضان كريم

الف شكر للجميع على هذه المشاركات الممتازة

هناك طريقة أخرى أيضا :

BAREME IRG 2008 RAMENE AU MOIS
TRANCHE IMPOSABLE /ETENDUE DE LA TRANCHE / %
N'EXCEDANT PAS 10.000 10.000 0 %
10.001 --> 30.000 20.000 20 %
30.001 -->120.000 90.000 30 %
SUPERIEUR A 120.000 35 %
ABATTEMENT=40 % MINIMUM=1.000 DA MAXIMUM=1.500 DA

• Le barème commence à partir de 15.010,00 DA
• Salaire imposable (S) est entre 15.000 DA et 22.500 DA IRG = (S-15.000)x20%-1000
• Salaire imposable (S) est entre 30.000 DA et 120.000 DA IRG = 2.500 + (S-30.000)x30%
• Salaire imposable (S) est Supérieur> 120.000 DA Alors IRG=29.500 + (S-120.000)x35%

Salaire imposable de 15.000 DA
1. Découper en tranches 15.000 DA = 10.000 + 5.000
2. A - Retenue IRG = 10.000 x 0/100 + 5.000 x 20/100 = 1.000 DA
3. B - Abattement = 1.000 x 40/100 = 400 DA. 400 DA<1.000 Donc Abattement = 1.000 DA
4. Retenue IRG ( A- B) = 1.000-1.000 = 0 DA

Salaire imposable de 25.000 DA
1. Découper en tranches 25.000 DA = 10.000 + 15.000
2. A - Retenue IRG = 10.000 x 0/100 + 15.000 x 20/100 = 3.000 DA
3. B - Abattement = 3.000 x 40/100 = 1200 DA. 1200 est entre 1.000 et 1.500 DA et Donc Abattement = 1.200 DA
4. Retenue IRG ( A- B) = 3.000-1.200 = 1.800 DA
Salaire imposable de 55.000 DA
1. Découper en tranches 55.000 DA = 10.000 + 20.000+ 25.000
2. A - Retenue IRG = 10.000 x 0/100 + 20.000 x 20/100 + 25.000 x 30/100 = 11.500 DA
3. B - Abattement = 11.500 x 40/100 = 4.600 DA. 4.600 >1.500 Donc Abattement = 1.500 DA
4. Retenue IRG ( A- B) = 11.500-1.500 = 10.000 DA

Salaire imposable de 200.000 DA
1. Découper en tranches 200.000 DA = 10.000+20.000+90.000+80.000
2. A - Retenue IRG = 10.000 x 0/100 + 20.000x20/100 + 90.000x30/100 + 80.000x35/100 = 59.000 DA
3. B - Abattement = 59.000 x 40/100 = 23.600 DA. 23.600 >1.500 Donc Abattement = 1.500 DA
4. Retenue IRG ( A- B) = 59.000-1.500 = 57.500 DA

شكرا للأخوة هل من طريقة مماثلة لإختصار الشبكة الإستدلالية ....
في إنتظار ردكم مشكورين ....

[b]شكرا لك أخي kadi على مجهودا الرائع أولا
وثانيا هناك طريقة أخرى لحساب irg وهي تعتمد على نفس طريفتك ولكن يمكن استخدامها بدون اللجوء إلى استخدام البرمجة أو نسخ الكود الذي وضعته وتكمل هذه الطريقة كمايلي:
لمستخدمي الأكسل والأكسس يمكن استخدام الدالة التالية :
IF(Z3>30000;(Z3-30000)*30%+2500;IF(Z3>28750;(Z3-28750)*20%+2250;IF(Z3>22500;(Z3-22500)*12%+1500;IF(Z3>15000;(Z3-15000)*20%;0))))
لكن يجب تغيير اسم الخانة الموجودة فيه مثلا Z3 الى الخانة التي تريدها وبعدها يمكن نسخها خانات الموظفين الأخرين بستخدام لصق خاص تظهر قائمة إختر صيغ.
وفي هذا المثال التوضيح فمثلا لدينا المبلخ الخاضع لـ : ض د إ 33931.90 هذا الأخير يمكن استخدام دالة التقريب كي يناسب المبلغ الموجود في جدول الضريبة ( barem ) وهذه الدالة هي: (ROUNDDOWN(Y3;-1
قاعدة ض.د.إ مبلغ التقريب ض د إ
33,931.90 33,930.00 3,679.00
وفي الأخير الطريقة مجربة وجيدة لا أريد أخي الكريم التقليل من طريقتك وشكرا[/b]

الى الاخوة المبرمجين هل هناك دالة تقوم بالترقيب في الأكسس حيث تقوم مثلا بالتقريب من :.15884 الى 15880 و 15885 الى 15890 و 15886 الى 15890 بغض النظر إن كانت هناك الفاصلة كما تقوم الدالة round في الأكسل علما أن هذه الدالة موجودة في الأكسس ولكنها لا تعمل.
شكرا مقدما

[quote="amor91thanks for this effort thanksssssssssssssss :;$kh fhgùvdr,

thankssss very match

السلام عليكم وشكرا جزيلا على هده المعلومات,
من فضلكم أريد شرح طريقة حساب IRG بالنسبة لايام العمل و الغيابات و شكرا مسبقا.

و الله أنكم أكثر من رائعين ربي يحفظكم جميعا ،