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

عبدالقدوس48

03 عضو مميز
  • Posts

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

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

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

  1. جزاك الله خير أخي عمل رائع جعله الله في ميزان حسناتك
  2. جزاكم الله خيرا نتعلم منكم
  3. نعم أخي Amr Ashraf جزاكم الله خير وأستاذنا د.كاف يار دائما في الخدمة جزاكم الله خيرا
  4. جربت إستعلام وبدون جدوى مثال.accdb
  5. السلام عليكم أريد إخفاء الأصفار باللون الأصفر فقط وجزاكم الله خيرا مثال.accdb
  6. وعليكم السلام هذه معادلة لحساب الضريبة 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
  7. شكرا لكم وجدت الحل
  8. السلام عليكم عندي مشكل في الدالة عند وضع رقم واحد يحسب هذا العدد 36177.05 =2231.50 عند تغير رقم واحد بإثنان = 2231.46 عند وضع رقم إثنان يحسب هذا العدد 32487,45=1135.70 عند تغير رقم واحد بإثنان = 1135.80 صحيح في الأةل 2231.50 صحيح في الثاني 1135.80 أريد التعديل على الدالة وشكرا ع ملف مرفق irg2022.accdb
  9. شكرا لك أخي وجزاك الله خيرا
  10. السلام علبكم كيفية البحث في نموذج وعرض النتيجة في نموذج اخر وشكرا
  11. السلام عليكم ورحمة الله وبركاته صباح الخير أريد التعلم من حضرتكم كيفية إنشاء دالة جديدة Function وشكرا لكم
  12. السلام عليكمممكن تعديل على الضريبة على حسب الجدول في الصورة وشكر Function IRG_New(moTr) moTr = (Int(moTr / 10)) * 10 Select Case moTr Case 0 To 30000: IRG_New = 0 Case 30010 To 34999: IRG_New = (moTr - 30000) * 0.8 Case 35000 To 120000: IRG_New = 2500 + ((moTr - 30000) / 10) * 3 Case Is > 120000: IRG_New = 29500 + ((moTr - 120000) / 10) * 3.5 End Select End Function
  13. لك مني كل الثناء والتقدير، بعدد قطرات المطر، وألوان الزهر، وشذى العطر، على جهودك الثمينة والقيّمة.
  14. شكرا لك أخي زاك الله خيرا
  15. ممكن مساعدة في إستعلام إلحاق على حسب التاريخ مثلا 01/08/2021 جتى 31/12/2021 وشكرا
  16. السلام عليكم أخذ ملف نصي من حقل محدد وشكرا
  17. للرفع
×
×
  • اضف...

Important Information