مساعدة وجزاكم الله خيرا

[عبدالقدوس48]

أريد تعديل في هذا كود 30000=0 والثاني أكبر 2503 وأصغر 4000 مضروب *8/3-20000/3

مثال 2650*8/3= 7066.66 

20000/3 = 6666.66

7066.66 -6666.66 = 400

Function irg1(i)
i = Format(i, "000.00")
p = Right(i, 4)
If i > 30000 Then
If i > 2503 And i < 4000 Then
irg1 = (8 / 3 - 20000 / 3)
End If
End If
End Function

وشكرا

[عبدالقدوس48]

ولا مساعدة

 

[عفرنس]

5 ساعات مضت, عبدالقدوس48 said:

ولا مساعدة

 

اخي الفاضل 

1 - عنوان مشاركتك غير واضح يجب تعديل العنوان بما يدل على المحتوى .. 

2- يستحسن ارفاق ملفك او مثال مشابه لبرنامجك حتى يستطيع الاخوة في المنتدى مساعدتك بشكل اسرع وافضل .. 

 

[عبدالقدوس48]

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
 

 

[عبدالقدوس48]

هذا مثال أخي

ضريبة.accdb

تم تعديل يونيو 6, 2020 بواسطه عبدالقدوس48

[ابوخليل]

عذرا استاذ عبد القدوس ..  129 مشاركة  وعضو مميز .. ولا يكون لعنوان الموضوع قيمة او اهمية !!!

نحن نقوم بالتعديل على العناوين _ للمشتركين الجدد _  ونلمح لهم اهمية اختيار العنوان المناسب الذي يصف الموضوع

اغلب الاعضاء والخبراء هنا يعملون محتسبين .. يهمهم المصلحة والفائدة العامة المستقبلية في البحث

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

آمل ان تقبل وبصدر رحب غلق الموضوع .