10:52 AM |الساعة الآن   
 
العودة ملتقى الموظف الجزائرى  :: 

منتدى الميزانيات والصفقات العمومية

 :: 

الاجــور والمنح والتعويضات






أهلا وسهلا بك إلى ملتقى الموظف الجزائرى.
أهلا وسهلا بك زائرنا الكريم، إذا كانت هذه زيارتك الأولى للمنتدى، فيرجى التكرم بزيارة صفحة التعليمـــات، بالضغط هنا.كما يشرفنا أن تقوم بالتسجيل بالضغط هنا إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.

الرئيسيةالبوابةبحـثس .و .جدخولالتسجيل
اعلان هام للمسجلين الجدد :بمجرد التسجيل يتم إرسال كود التفعيل إلى حسابك .. أي الإيميل الذي وضعته عند التسجيل بالمنتدى ... إذهب إلى علبة البريد فإذا لم تجده في الرسائل الواردة حاول أن تبحث عنه في صندوق بريد الغير مرغوب فيه SPAM



كيفية حساب IRG


شاطر
 #1  
13/4/2011, 11:34 pm
 
 
 
ذكر
الاقامة : mila
المشاركات : 44
نقاط : 104
تاريخ التسجيل : 12/04/2011
العمل : administrateur
افتراضيكيفية حساب IRG

* 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


 #2  
14/4/2011, 7:52 pm
 
 
 
ذكر
الاقامة : الجزائر
المشاركات : 1256
نقاط : 1367
تاريخ التسجيل : 06/08/2010
العمر : 48
العمل : متصرف
المزاج المزاج : مبسوط
افتراضيرد: كيفية حساب IRG

الف شكر على كيفية الحساب
ارجو منكم شرح كيفية استعمالها على ملف الاكسل vb






 
الإشارات المرجعية


  
وما من كاتب إلا سيفنى . ويبقي الدهر ما كتبت يداه



تعليمات المشاركة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى

BB code is متاحة
كود [IMG] متاحة
كود HTML متاحة