اقتباس:
المشاركة الأصلية كتبت بواسطة fretesmed
أخي المعلم اختي المعلمة كثيرا ما تسائلت عن كيفية حساب الضريبة على الدخل وقيل لك انها عملية معقدة تعتمد في تقديرها على جدول الضريبة لسنة 2008 والذي يشمل بدوره على أكثر من 50 صفحة لكن هل يمكنك حساب مقدار الضريبة على الدخل دون اللجوء إلى هذا الجدول ؟؟؟؟
الجواب نعم وسأشرح لكم الطريقة والتي تعتمد في الأساس على عمليات حسابية بسيطة :
ما يجب أن تعرفه أنه هناك أربع أصناف لحساب الضريبة على الدخل وكل المعلمين مدرجين في الصنف الرابع لأن الأجر الخاضع للضريبة يفوق 30000 دج
وهي تحسب كما يلي :
نأخذ المبلغ الخاضع للضريبة : والذي يمثل الراتب الخام - إقتطاع الضمان الإجتماعي
ونقوم بتقريبة أي بوضع صفر في رقم الآحاد مثال : إذا كان الرقم الخاضع للضريبة هو 37815.25 يصبح 37810.00
2- نطرح من هذا المبلغ قيمة 30000 دج
3- الناتج يضرب في 30 بالمئة
4- نضيف للناتج قيمة 2500 دج
الناتج الآن بعد العمليات الأربع هو المبلغ المقتطع
مثال توضيحي
المبلغ الخاضع للضريبة لمعلم مدرسة إبتدائية درجة 4 هو 37207.94 دج
1- نقوم بالتقريبه فيصبح 37200 دج
2- 30000-37200=7200 دج
3- 7200 *30 / 100 =2160 دج
4- 2160 + 2500 = 4660 دج وهو المبلغ المقتطع
ماعليك الآن إلى أخد الملغ الخاضع للضريبة وإجراء العمليات الأربع لتحصل على قيمة الإقتطاع
إخواني الأعزاء إنها اسهل طريقة لحساب قيمة الضريبة على الدخل فأرجوا أن يكون قد وفقت في إيصال المعلومة وشكرا
|
طريقة ليس صحيحة:
لأن إذا كان المبلغ الخاضع للضريبة هو 37810.00دج المبلغ هو 4843.00 دج
و إذا كان المبلغ الخاضع للضريبة هو 37820.00 دج المبلغ هو 4846.00 دج
هذه الطريقة الصحيحة وفق هذه البرمجة بأستعمال الجدول
* PROGRAMME CALCUL IRG 2008/2007
* MINISTERE DES FINANCES
* DIRECTION GENERALE DES IMPOTS
* DIRECTION DE L'INFORMATION ET DE LA DOCUMENTATION
PARAMETERS SOUMIS,RTS1,abat
SET DECIMAL TO 1
STORE 0 TO TC,PAS,R1
SELECT 5
USE TAB07
BRTS=SOUMIS*12
* CALCUL DE L'IMPOT ANNUEL
DO WHILE .NOT.EOF()
IF BRTS<=TRS
EXIT
ELSE
SKIP +1
ENDIF
ENDDO
STORE TAX TO TAUX
SKIP -1
STORE TRS TO TB
STORE IMPAN TO TD
N=BRTS-TB
IMPOTA=(N*TAUX/100)+TD
* CALCUL DU CREDIT D'IMPOT MENSUEL
IMPM=IMPOTA/12
ABAT=(40*IMPM/100)
IF ABAT<1000
ABAT=1000
ENDIF
IF ABAT>1500
ABAT=1500
endif
RET=IMPM-ABAT
IF RET<0
RET=0
endif
***** IRG ARRONDIE A LA DIZAINE DE CENTIME INFERIEURE
*****RTS1=(RET*10)
*****RTS1=INT(RTS1)
*****RTS1=RTS1/10
************************ IRG ARRONDIE A LA DIZAINE DE CENTIME
INFERIEURE
SET DECIMALS TO 4
RTS1=(RET*10) + 0.0001
RTS1=INT(RTS1)
RTS1=RTS1/10
SET DECIMALS TO 2
RETURN
الجدول أسمه TAB07
************************************************** ***************
TRS * TAX * IMPAN
************************************************** ***************
0.00 * 0 * 0
************************************************** ***************
0.00 * 0 * 120000
************************************************** ***************
48000.00 * 20 * 360000
************************************************** ***************
372000.00 * 30 * 1440000
************************************************** ***************
3367999.65 * 35 * 9999999
************************************************** ***************
وشكرا