شاطر
استعرض الموضوع التالياذهب الى الأسفلاستعرض الموضوع السابق

دالة حساب irg 2022 في الاكسل Empty دالة حساب irg 2022 في الاكسل

bello832
bello832
موظف مرسم
ذكر

الاقامة : النعامة

المشاركات : 18

نقاط : 26

تاريخ التسجيل : 28/03/2011

العمل : محاسب إداري
تمت المشاركة الأربعاء 05 يناير 2022, 11:52
الكود:
Function irgne(x As Double) As Double

Dim r1, r2, k As Double
x = (Int(x / 10)) * 10
If x <= 30000 Then
irgne = 0
Else
'---------------Part1------------------
r1 = Round( _
IIf(x <= 40000, (x - 20000) * 0.23, _
IIf(x <= 80000, (x - 40000) * 0.27 + 4600, _
IIf(x <= 160000, (x - 80000) * 0.3 + 15400, _
IIf(x <= 320000, (x - 160000) * 0.33 + 39400, _
(x - 320000) * 0.35 + 92200)))), 1)
'---------------Part2----------------
k = r1 * 0.4
r2 = _
IIf(Round(k, 2) > 1500, Round(r1 - 1500, 1), _
IIf(Round(k, 2) < 1000, Round(r1 - 1000, 1), _
Round(r1 * 0.6, 1)))
'---------------Part3----------------
irgne = Round(IIf(x <= 35000, Round(r2 * 137 / 51 - 27925 / 8, 1), r2), 1)
End If
End Function


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

bouss79
bouss79
موظف مرسم
ذكر

الاقامة : khenchela

المشاركات : 6

نقاط : 6

تاريخ التسجيل : 08/04/2014

العمل : CFPA
تمت المشاركة الخميس 06 يناير 2022, 08:58
مشكورين


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

أمان
أمان
موظف مرسم
ذكر

الاقامة : لافريك

المشاركات : 2

نقاط : 2

تاريخ التسجيل : 06/01/2022

العمر : 41

العمل : موظف
تمت المشاركة الجمعة 07 يناير 2022, 05:03
بارك الله فيك


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

blinda1989
blinda1989
موظف درجة 2
ذكر

الاقامة : alger

المشاركات : 175

نقاط : 180

تاريخ التسجيل : 05/12/2013

العمل : admin
تمت المشاركة الجمعة 07 يناير 2022, 18:54
ربي يعطيك ماتتمنى ويفرحك يارب


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

عبر
عبر
موظف درجة 1
ذكر

الاقامة : الجزائر

المشاركات : 70

نقاط : 96

تاريخ التسجيل : 25/06/2011

العمل : *
تمت المشاركة الأحد 09 يناير 2022, 20:48
بارك الله فيك


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

fugitif
fugitif
موظف درجة 1
ذكر

الاقامة : bejaia

المشاركات : 64

نقاط : 74

تاريخ التسجيل : 26/04/2014

العمل : fonctionnaire
تمت المشاركة الإثنين 10 يناير 2022, 11:02
Merci pour l'effort


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

أمجد
أمجد
موظف درجة 1
انثى

الاقامة : الطارف

المشاركات : 75

نقاط : 79

تاريخ التسجيل : 26/04/2013

العمل : متعاقدة
تمت المشاركة الثلاثاء 11 يناير 2022, 10:39
السلام عليكم


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

حسين قويزي
حسين قويزي
موظف درجة 1
ذكر

الاقامة : تلمسان

المشاركات : 118

نقاط : 118

تاريخ التسجيل : 07/06/2011

العمر : 55

العمل : موظف
تمت المشاركة الثلاثاء 11 يناير 2022, 15:17
شكرا ولكن تتحتوي على اخطاء كثيرة بالنيذسبة للجدول


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

محارزي1971
محارزي1971
موظف مرسم
ذكر

الاقامة : عين الدفلى

المشاركات : 2

نقاط : 2

تاريخ التسجيل : 02/01/2022

العمر : 51

العمل : موظف
تمت المشاركة الثلاثاء 18 يناير 2022, 16:13
مشكور


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

elmaestro2
elmaestro2
موظف مرسم
ذكر

الاقامة : boiuira

المشاركات : 14

نقاط : 8

تاريخ التسجيل : 05/11/2016

العمل : endeignant
تمت المشاركة السبت 22 يناير 2022, 11:01
بارك الله فيك


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

taoiss
taoiss
موظف مرسم
ذكر

الاقامة : algerie

المشاركات : 2

نقاط : 2

تاريخ التسجيل : 14/06/2021

العمر : 50

العمل : algerie
تمت المشاركة الإثنين 31 يناير 2022, 23:04
مشكر اخي الفاظل


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

عبدالقدوس
عبدالقدوس
موظف درجة 3
ذكر

الاقامة : غليزان

المشاركات : 195

نقاط : 309

تاريخ التسجيل : 09/05/2013

العمل : موظف بالبلدية حارس
تمت المشاركة السبت 05 فبراير 2022, 20:50
Function irgne(x As Double) As Double

Dim r1, r2, k As Double
x = (Int(x / 10)) * 10
If x <= 30000 Then
irgne = 0
Else
'---------------Part1------------------
r1 = Round( _
IIf(x <= 40000, (x - 20000) * 0.23, _
IIf(x <= 80000, (x - 40000) * 0.27 + 4600, _
IIf(x <= 160000, (x - 80000) * 0.3 + 15400, _
IIf(x <= 320000, (x - 160000) * 0.33 + 39400, _
(x - 320000) * 0.35 + 92200)))), 1)
'---------------Part2----------------
k = r1 * 0.4
r2 = _
IIf(Round(k, 2) > 1500, Round(r1 - 1500, 1), _
IIf(Round(k, 2) < 1000, Round(r1 - 1000, 1), _
Round(r1 * 0.6, 2)))
'---------------Part3----------------
irgne = Round(IIf(x <= 35000, Round(r2 * 137 / 51 - 27925 / 8, 1), r2), 1)
End If
End Function


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

kissar
kissar
موظف درجة 1
ذكر

الاقامة : skikda

المشاركات : 53

نقاط : 53

تاريخ التسجيل : 24/05/2015

العمل : universite
تمت المشاركة الأحد 06 فبراير 2022, 15:05
بارك الله فيك


دالة حساب irg 2022 في الاكسل Empty رد: دالة حساب irg 2022 في الاكسل

mouraddss
mouraddss
موظف متربص
ذكر

الاقامة : المسيلة

المشاركات : 1

نقاط : 1

تاريخ التسجيل : 26/03/2022

العمر : 27

العمل : موظف
تمت المشاركة الخميس 31 مارس 2022, 10:17
شكرا


استعرض الموضوع التاليالرجوع الى أعلى الصفحةاستعرض الموضوع السابق
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى