نجوم المشاركات

تطوير 5 اقتباس من واجهات الاستاذ موسى مع بعض تصرف عمل نظام صلاحيات خفيف ومختصر توسع من اجل التطوير مستقبلا الادمن كلمة المرور =78 البقية كلمة المرور =1 اتمنى تجدوا الفائدة والمتعة KhlAcc5.rar

استاذ @kkhalifa1960 كلامك كله علي راسي قسما بالله وكفايه اهتمامك وذوقك انا فعلا كنت بفكر اعمل قريب جدا جدا من اللي حضرتك ذكرته ده مع بعض التعديلات البسيطة وانا للاسف مش جمب الجهاز دلوقتي ان شاء الله علي بالليل هبص عالملف وانا متأكد كل التأكيد من انه ان شاء الله هيطلع حاجه مشرفه انا مش عارف اقولك ايه صراحه علس اهتمامك واحترامك الزايد وكلماتك المحترمه اللي شبهك ( فعلا كلما ازداد الانسان علم كلما ازداد تواضع) ربنا يجازيك عننا خير ويفتحلك الابواب المغلقه ايا كانت النتيجه فانا ممتن وشاكر لذوقك العالي ولحسن اخلاقك واهتمامك بالصغير قبل الكبير هنا تحياتي لشخصك الكريم

استاذ @M.Abd Allah انا بمطلع شبابي عملت بشركة ايديال بمدينة نصر قبل بيعها ..... والمهم ..عارف المراحل وما بداخلها (وانت تريد ما بداخلها) لكن ... كان يوضع على ظهر المنتج ختم الجودة من قبل مسؤول الجودة وكان بكل منتج شيت المراحل الذي سويناه وصدرناه لوورد لكن كان يدوي بختم كل مرحلة .. فهنا مسؤول الجودة لايسأل عن خطوات المرحلة بل لو الاختام مكتملة فقط بيخم المنتج بختم الجودة . الخلاصة ( مابداخل الخطوات غير مهم هنا في برمجتنا ). لكن لو تريد ذلك مافي مانع ارسل الخطوات وما بداخلها وانا حاضر لك . وعلشان انت رجل محترم جداً اليك مرفق جديد اضافة زر التصدير PDF . واعتقد هذا اسرع من وورد ولا يحتاج تجهز ملف وورد مسبق الاعدادت . جرب الزران . ووافني بالرد . M.Abd Allah-LAST.rar

تطوير 3 ضبط نماذج الادخال بتصميم جديد محكم وزيادة حقول للبيانات اللازمة اضافة تقارير خاصة لعرض الاسماء وتقارير تصفية للحسابات ولمسات اخرى KhlAcc3.rar

الله يجزاك عني خير الجزاء وعن كل شخص استفاد منك ربي يسعدك يا محترم

يأخي الحل صحيح وجزاك الله كل خير إن إهتماك بايجاد الحلول يدل على نبلك أسأل الله ان يوفقك ويحسن خاتمتك في الأمور كلها & تحياتي لكل أعضاء موقع أوفيسنا &

أعتقد الحل رياضياتيا صحيح، فقط المشكلة أني لم احترز لوجود خلايا فاضية بناء على المثال في المرفق السابق. لاحظ أجوبتك (مبهمة) غير صريحة!! يجب تحديد الخطأ بشكل واضح. محاولة أخرى بدون تغيير في النتائج فقط تم تبديل نوع المتغيرات احترازا عند وجود خلايا فاضية في العطل/الإجازات. Function Between(inDate As Long, Date1 As Long, Date2 As Long) As Boolean Between = inDate >= Date1 And inDate <= Date2 End Function Function getHolidays(Holiday1 As Long, Holiday2 As Long, _ Workday1 As Long, Workday2 As Long) As Integer Dim Date1 As Long, Date2 As Long 'On Error Resume Next 'Min date is 31/12/1899 If Holiday1 <= 0 Or Holiday2 <= 0 Then Exit Function If Between(Holiday1, Workday1, Workday2) Or _ Between(Holiday2, Workday1, Workday2) Or _ Between(Workday1, Holiday1, Holiday2) Or _ Between(Workday2, Holiday1, Holiday2) Then Date1 = IIf(Holiday1 >= Workday1, Holiday1, Workday1) Date2 = IIf(Holiday2 <= Workday2, Holiday2, Workday2) getHolidays = Date2 - Date1 + 1 End If End Function حساب أيام العمل خلال_04.xlsm