لكن يتم حساب التأخير
الـتأخير = الساعات الفعلية - الساعات المفروضة - الأذونات - الأذونات الخاصة.
علما بأن الساعات المفروضة تتحول من تلقائيا دون تدخل المستخدم كل موظف على حسب قسمة والنوبة الخاصة به
بعضهم 6:00 او 6:10 او 8:00 او 12:00
وبهذا اكون تغلبت على معرفة دوام كل واحد
الطاير كتب:جزاك الله خير استاذ كمال على هذا المثال ولو انه بعيد شوية على ما اريده ولكن فيه استفاده كبيرة في بعض الاكواد
والشكر موصول لأخي الحبيب بوعدنان على هذه الصياغة الجميلة التي ذكرتها
وتقريبا 90 % من اللي حضرتك ذكرته انا مطبقة في البرنامج
وإليك صورة توضح عمل البرنامج فيي النموج التالي وهذا بشكل شهري لكل موظف
إن شاء الله يكون واضح ومقبول
لا شكر على واجب أخي الحبيب الطاير وجزاك الله خير ولا تنسى أننا جميعا سنستفيد من هذه التجربة وفعلا الموضوع جميل ويستحق المتابعة بعد كل هذه المشاركات ما شاء الله :) جزاك الله كل خير ..
ما شاء الله الصورة المرفقة تظهر مجهود واضح منك لعمل المطلوب وهذا ما دفعني الى المشاركة من جديد لمحاولة وضع صيغة مقبولة لنتائج البرنامج ...
ولكن السؤال ماذا لو كانت نتائج المجاميع أقصد هنا مجاميع التأخير والأذونات والأذونات الخاصة والإضافي تزيد عن 24 ساعة فهل تعتقد أن المجاميع ستظهر بصورة صحيحية ؟
طبعا على أعتبار أنك أتبعت هذا التسيق بالمجاميع
أعتقد والله أعلم أن هذه الطريقة تصلح ليومين أو ثلاثة أيام فقط وبشكل مضمون ، وان شاء الله منتظرينك ... :)
تمنياتي لك بالتوفيق وتقبل مني أجميل تحية ..
اخي الحبيب بو عدنان
شوف الصورة ولاحظ المجاميع
وضعتها بهذا الكود اللي أخذته من أحد البرامج الموجودة بالموقع
=HoursAndMinutes(Sum([ov]))
سامحني نسيت أسألك انت روحت العمرة ولا لسة
واذا روحت ورجعت فتقبل الله طاعتكم ومنها للحج الأكبر إن شاء الله
وإذا لسة فالله يوفقك للذهاب القريب وتقبل الله طاعتك مقدما
الطاير كتب:اخي الحبيب بو عدنان
شوف الصورة ولاحظ المجاميع
وضعتها بهذا الكود اللي أخذته من أحد البرامج الموجودة بالموقع
=HoursAndMinutes(Sum([ov]))
سامحني نسيت أسألك انت روحت العمرة ولا لسة
واذا روحت ورجعت فتقبل الله طاعتكم ومنها للحج الأكبر إن شاء الله
وإذا لسة فالله يوفقك للذهاب القريب وتقبل الله طاعتك مقدما
يا سلام عليك أكثر من رائع وأرجو أن توضح لنا الكود حيث أن الكود غير كامل هذا للفائدة العامة بارك الله بك .. وتستاهل أكثر من +1 ..
تقبل الله منا ومنكم صالح الأعمال أخي الحبيب والحمد لله لم أنساك ولم أنسى أخوتي الأعضاء جميعا من الدعاء ونسأل الله للجميع زيارة بيته العتيق اللهم آمين ..
شكرا لك أخي الحبيب الطاير على اهتمامك وجزاك الله كل خير ..
تقبل تحياتي ..
تم تعديل هذه المشاركة بواسطة moh samer ali في 26 أبريل 2010 في 12:34
سامحنا على التأخير أخي الحبيب بو عدنان
مرفق مثال وبه الكود مطبق وجاهز هذا من باب الأستفادة للجميع
وعلى فكرة انا وجدت الكود منتدانا هنا أثناء بحثي عن برامج تساعدني في عمل برنامجي
واعتقد أنه للأخت زهرة جزاها الله خير
لكن مازلت ابحث عن طللبي الأخير إن شاء الله
وهو :
بعد التحديث في إذن التأخير أو إذن خاص
في حال زاد مجموع (الإذن الخاص + الإذن الرسمي) على عدد ساعات التأخير
إذن التأخير = 0
لأن أحيانا موظف ياخد إذذذن 3 ساعات ويطلع عندة تأخير 2:55 ساعتان وخمسة وخمسون دقيقة ........ ده مثلا يعني ..... ولو دخلت 3 ساعات في الاذن هقلب معايا ويطلع عند الراجل تأخير 5 دقائق وهو في الأساس له خمس دقائق
والشكر موصول لجميع الإخوة اللي ساعدوني في البرنامج
الطاير كتب:سامحنا على التأخير أخي الحبيب بو عدنان
مرفق مثال وبه الكود مطبق وجاهز هذا من باب الأستفادة للجميع
وعلى فكرة انا وجدت الكود منتدانا هنا أثناء بحثي عن برامج تساعدني في عمل برنامجي
واعتقد أنه للأخت زهرة جزاها الله خير
لكن مازلت ابحث عن طللبي الأخير إن شاء الله
وهو :
بعد التحديث في إذن التأخير أو إذن خاص
في حال زاد مجموع (الإذن الخاص + الإذن الرسمي) على عدد ساعات التأخير
إذن التأخير = 0
لأن أحيانا موظف ياخد إذذذن 3 ساعات ويطلع عندة تأخير 2:55 ساعتان وخمسة وخمسون دقيقة ........ ده مثلا يعني ..... ولو دخلت 3 ساعات في الاذن هقلب معايا ويطلع عند الراجل تأخير 5 دقائق وهو في الأساس له خمس دقائق
والشكر موصول لجميع الإخوة اللي ساعدوني في البرنامج
تسلم ايدك يالغالي وبارك الله بك ..
الصراحة أنا أعمل الآن على المثال دون ان افهم شئ وهذا اصعب شي بالنسبة لي يعني على سبيل المثال ما علاقة الأذونات بحقل التأخير ؟؟؟
على كل حال بغض النظر عن المنطق الذي تريد الوصول اليه فأنا عملت لك المعادلة :
If ([perm1] + [perm2]) > [Ta] Then [Ta] = 0
جرب أن تضعها بالمكان الذي تريد ..
تقبل تحياتي ..
تم تعديل هذه المشاركة بواسطة moh samer ali في 27 أبريل 2010 في 13:23
moh samer ali كتب:تسلم ايدك يالغالي وبارك الله بك ..
الصراحة أنا أعمل الآن على المثال دون ان افهم شئ وهذا اصعب شي بالنسبة لي يعني على سبيل المثال ما علاقة الأذونات بحقل التأخير ؟؟؟
على كل حال بغض النظر عن المنطق الذي تريد الوصول اليه فأنا عملت لك المعادلة :
If ([perm1] + [perm2]) > [Ta] Then [Ta] = 0جرب أن تضعها بالمكان الذي تريد ..
تقبل تحياتي ..
تسلم يا بو عدنان على المثال بس انا فعلا جربت هذا المثال بكافة الطرق ويمين وشمال وشمال ويمين ولكن لا يعمل بالشكل المطلوب ؟؟؟؟؟؟؟؟؟؟
ta= 0 If ([Perm1] + [Perm2]) < [ta] Then [ta] = 0 Else Command_Click End If
في زاد الإذن عن التأخير ويطرح من التأخير فيعطي نتيجة وهذه النتيجية تعتبر تأخير ايضا
فدام ان الموظف أخد إذن ممكن يزيد عن مدة تأخيره 5 او 10 دقائق فأريد تحويل الناتج الى 0 حتى لا يعطي قيمة تحستب أيضا تأخير على الموظف
وده طبعا لأن النتيجية لا تطلع بالسالب في الساعات
أرجوا ان اكون وضحت
الطاير كتب:تسلم يا بو عدنان على المثال بس انا فعلا جربت هذا المثال بكافة الطرق ويمين وشمال وشمال ويمين ولكن لا يعمل بالشكل المطلوب ؟؟؟؟؟؟؟؟؟؟
ta= 0 If ([Perm1] + [Perm2]) < [ta] Then [ta] = 0 Else Command_Click End Ifفي زاد الإذن عن التأخير ويطرح من التأخير فيعطي نتيجة وهذه النتيجية تعتبر تأخير ايضا
فدام ان الموظف أخد إذن ممكن يزيد عن مدة تأخيره 5 او 10 دقائق فأريد تحويل الناتج الى 0 حتى لا يعطي قيمة تحستب أيضا تأخير على الموظف
وده طبعا لأن النتيجية لا تطلع بالسالب في الساعات
أرجوا ان اكون وضحت
أخي الحبيب جرب هذا التعديل وإن شاء الله يكون هو المطلوب ..
تقبل تحياتي ..
ما شاء الله عليك عبقري يا ابو عدنان الله ينور عليك فعلا المثال جميل جدا وظبط ولله الحمد لك الشكر وجزاك الله خير
السلام عليكم ورحمة الله وبركاته
انا بشكركم كتير على هل المعلومات فعلا المعلومات مفيده انا ايضا استفد كتير اشياء
انا عندي استفسار او اذا ممكن شرح كيف نقتدر نحسب الاضافي يعني شو هو الكود للحساب الاضافي لانه بالامثله مش مشروع عن الاضافي
على فكره انا مبتدئ
ارجو النظر الى المثال المرفق واذا عندك افكار اعلموني بيها للتطوير برنامجي
