اذهب الي المحتوي
أوفيسنا

عبدالقدوس48

03 عضو مميز
  • Posts

    404
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو عبدالقدوس48

  1. السلام عليكم كيفية إضافة صورة مع الكتابة على الزر الأمر وشكرا
  2. السلام عليكم كيفية البحث في ثلاثة جداول في نموذج واحد وشكرا
  3. السلام عليكم كيفية إضافة خيار A3 في طابعة التقرير يوجد A4 ولا يوجد خيار A3 وشكرا
  4. جزاك الله خير أخي عمل رائع جعله الله في ميزان حسناتك
  5. نعم أخي Amr Ashraf جزاكم الله خير وأستاذنا د.كاف يار دائما في الخدمة جزاكم الله خيرا
  6. السلام عليكم أريد إخفاء الأصفار باللون الأصفر فقط وجزاكم الله خيرا مثال.accdb
  7. وعليكم السلام هذه معادلة لحساب الضريبة 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
  8. السلام عليكم عندي مشكل في الدالة عند وضع رقم واحد يحسب هذا العدد 36177.05 =2231.50 عند تغير رقم واحد بإثنان = 2231.46 عند وضع رقم إثنان يحسب هذا العدد 32487,45=1135.70 عند تغير رقم واحد بإثنان = 1135.80 صحيح في الأةل 2231.50 صحيح في الثاني 1135.80 أريد التعديل على الدالة وشكرا ع ملف مرفق irg2022.accdb
×
×
  • اضف...

Important Information