بسم الله الرحمن الرحيم

شبكة نسمات الفن
تقدم

حصريا جدول حساب الضريبة على الدخل الإجمالي IRG الجديد بالجزائر

و الذي صادق عليه رئيس الجمهورية الجزائرية السيد عبد العزيز بوتفليقة أول أمس عندما أمضى على قانون المالية 2008

الجدول لم يتضمن تخفيضات كبيرة بحيث لا تتجاوز تلك الأخيرة مئات الدينارات فقط

لحفظ الجدول الضريبي
http://ppc.fm/im@s1/537012_638798_hml-alaan.gif


لحفظ الألغوريتم algorithme لمعرفة طريقة حسابه
كود:

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