اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اخراج الفرق بين وقتين بالسالب


الردود الموصى بها

السلام عليكم جمبعا ...

حقيقة المطلب الرئيسي هو هل يمكن اخراج الفرق بين وقتين بالسالب ؟

ومعه ظهرت لي عدة طلبات اوجزتها شرحا بالمرافق ، واتمنى حلها من قبلكم

جزيتم خيرا .

test time.accdb

رابط هذا التعليق
شارك

سلام عليكم Hawiii ...
شكرا جزيلا على التفاعل وابداء المساعدة من قبلكم
واعتذر عن التاخير بسبب ظهور اصابتي بكورونا عافاكم الله منها ...
اخي الكريم لي عدة ملاحظات على التعديلات  :

اولا : فعلا تم حل مشكلة (القيمة السالبة) ويظهر (لايوجد تاخير)...تمام .
و(القيمة المتساوية) ويظهر (الوقت ممتاز) ... تمام .

لكن لم تحل مشكلة (القيمة اكبر من ساعة) و(اقل من ساعة) 
المفروض اذا اكثر من ساعة تظهر عبارة (يوجد تاخير غير مسموح)
اذا اقل من ساعة تظهر عبارة (يوجد تاخير مسموح به)

ثانيا : استخدامك لمربع نص (غير مضمن) لاظهار (مدة التاخير) بينما مربع النص مصدره جدول حيث ينزل بالجدول رقم وليس وقت كما هو المراد اصلا .

ارجو التعديل على المرافق جزاك الله خير .

test time2.accdb

رابط هذا التعليق
شارك

لا بأس عليك أخي والحمد لله على سلامتك.

في السطر :
 

If Result < 1 Then

بدل 1 إلى -1

أما الحقل من نوع وقت لا يقبل الوقت بالسالب ولا يقبل أكبر من 23:59 ، فالحل هو تحول الوقت (ناتج الطرح) إلى رقم بضربه في 24 
وفي الصندوق غير المنضم فيه فكرة لتحويل الرقم بالسالب إلى ما يشبه نوع الوقت وهو فقط ليساعدك على المقارنة.

تم تعديل بواسطه Hawiii
رابط هذا التعليق
شارك

جزاك الله خير اخي وعافاك ...

تبديل 1 الى -1 لم تغير من الامر شيء ...

فبقي الجواب يظهر (تاخير غير مسموح به ) هو نفسه في حالة فرق الوقت اقل من ساعة او اكثر من ساعة ...

رابط هذا التعليق
شارك

3 ساعات مضت, عذاب الزمان said:

تبديل 1 الى -1 لم تغير من الامر شيء ...

غير دقيق .. يبدو أنك بدلت في الكود .. ارجع للنسخة التي رفعتها أنا وبدل من جديد.
 

رابط هذا التعليق
شارك

لم تلتزم بتعليماتي!!
وضعت لك بعض الملاحظات في الكود وفي تصميم الجدول .. الرجاء قراءتها بتأمل.
رجاءً عند وجود ملاحظات على النتائج اذكرها دون التعديل في الكود ودون الحاجة لإعادة رفع المثال.

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

test time3.rar

رابط هذا التعليق
شارك

هناك قاعدة حاول تستحضرها عند تطوير أي برنامج

القاعدة تقول : أن كل ما يمكن الحصول عليه بالحساب لا داعي لتخزينه/حفظه

فناتج الفرق وحالة الحضور/سبب التأخير لاداعي لتخزينهما.
وكذلك الوقت الإفتراضي إذا كان ثابتا وهو وقت وحيد لجميع الموظفين فلا داعي أيضا لتخزينه.

يعني يكفي حفظ وقت الحضور فقط وحذف الباقي ويمكن الحصول على النتائج من خلال استعلام.

  • Like 3
رابط هذا التعليق
شارك

اخي انا اشكر تعاونك معي فانت متفضل بلا شك  ...

ارجو انت تتفهم شيء مهم ان هذا المثال البسيط هو جزء من برنامج كبير عندي ولايصلح ان استخدمه في حدث (بعد التحديث) ، وان هذه الحقول مطلوبة وهناك داعي لتخزينها والقاعدة لا تنطبق على كل البرامج بل الحاجة هي التي تفرض نفسها عند التصميم .

ومع ذلك جربت المرفق الذي انت قمت بتعديله فلاحظت ان النتائج غير صحيحة .

حينما انا عدلت وارفقت ذلك في مرفق ثاني لاني اردت ان احصر الموضوع بما اريده فعلا ووضحت بان الكود يعمل وبقي شيء واحد فقط وهو  (الشيء الوحيد الذي لا يعمل هو ( فرق الوقت اقل من ساعة ))

جزيت خيرا على تعاونك ومساعدتك ....

رابط هذا التعليق
شارك

4 ساعات مضت, عذاب الزمان said:

ومع ذلك جربت المرفق الذي انت قمت بتعديله فلاحظت ان النتائج غير صحيحة .

سأقبل كل تبريراتك إلا هذه ، فالمثال موجود على العام ويستطيع الكل تجربته!!
أنا أعتذر عن المواصلة ، فموضوعك أكبر من قدراتي البرمجية وخبرتي فيها التي تعدت 35 سنة وعدد غير قليل من لغات البرمجة.  وهذا اعتراف مني بالعجز.

على الأساتذة مشكرورين فضلا وليس أمرا التدخل وحل مشكلة الرجل.

رابط هذا التعليق
شارك

في ١٣‏/٣‏/٢٠٢١ at 02:27, Hawiii said:

رجاءً عند وجود ملاحظات على النتائج اذكرها دون التعديل في الكود ودون الحاجة لإعادة رفع المثال.

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

اخي العزيز ... يبدو انك انزعجت ولكن هكذا حصل معي وانت قلت اعلاه عند وجود ملاحظات على النتائج اذكرها ... 

عندما ادخل تاريخ وليكن (23:10) في (الوقت الافتراضي) و(21:00) في (الوقت الفعلي) يجب ان تظهر النتيجة (02:00 -) يظهر السبب (لايوجد تاخير)

عندما ادخل تاريخ وليكن (19:00) في (الوقت الافتراضي) و(21:00) في (الوقت الفعلي) يجب ان تظهر النتيجة (02:00 ) يظهر السبب (تاخير غير مسموح به)

عندما ادخل تاريخ وليكن (20:15) في (الوقت الافتراضي) و(21:00) في (الوقت الفعلي) يجب ان تظهر النتيجة (00:45) يظهر السبب (تاخير مسموح به)

عندما ادخل تاريخ وليكن (21:00) في (الوقت الافتراضي) و(21:00) في (الوقت الفعلي) يجب ان تظهر النتيجة (00:00 ) تظهر السبب (الوقت ممتاز)

رابط هذا التعليق
شارك

سلمت يداك استاذنا .. نعم اعتقد هذا الذي يريد

وهذا مني تعديل بسيط على الشرط  ، حتى نقفل عليه الباب :smile:

Private Sub TIME_DEFULT_OUT_ARA_LostFocus()
    Dim Result As Double
    Dim Status As String
    Result = (Me.TIME_DEFULT_OUT_ARA - Me.TIME_ACTIVE_OUT_ARA) * 24
    Me.TIME_DELAY_OUT_ARA = Result
  
    If Result < 0 Then
        Status = "لايوجد تاخير"
       ElseIf Result = 0 Then
       Status = "الوقت ممتاز جدا"
       ElseIf Result > 0 And Result <= 1 Then
       Status = "تاخير مسموح به"
       ElseIf Result > 1 Then
       Status = "تاخير غير مسموح به"
     End If
                 
    Me.BECAUSE_DELAY_OUT_ARA = Status
    '--------------------------------
   Me.txtDiffTime = IIf(Result < 0, "-", "") & Format(Abs(Result / 24), "hh:mm")
End Sub

 

  • Like 4
رابط هذا التعليق
شارك

الاخ Hawiii ...

جزاك الله خيرا وبارك فيك واعطاك من فيض علمه ....

هذا الموقع هو الوحيد الذي ارتاده كلما عرضت لي مشكلة وهو صاحب الفضل في تطور مستواي ولذا اعتدت ان اجد الحلول هنا ولم يخيب ظني يوما ، ولذا ادعو لهم بالتوفيق دائما فنعم الاساتذه والاخوة فجزاهم الله خير الجزاء ... 

ارجو ان لاتكون قد انزعجت مني واعتذر ان بدرت مني عبارة مسيئة او تصرف غير مقصود ...

حفظك الله وسلمك واسالكم الدعاء لي ولعائلتي بالشفاء من وباء كورونا .

  • Like 1
رابط هذا التعليق
شارك

5 ساعات مضت, ابوخليل said:

ElseIf Result > 0 And Result <= 1 Then

الاستاذ الكبير ابو خليل السلام عليكم ... 

جزاك الله خير على (قفل الباب عليه) وكانك قراءت افكاري ...حفظك الله واطال بعمرك بخير وصحة وعافية 

وليس لي ملاذ اطرح به اي فكره او مشكلة تعترضني الا في هذا الموقع الرائع فاتمنى ان يسع صدركم لي .

حفظكم الله وجزاكم خيرا .

  • Like 1
رابط هذا التعليق
شارك

سؤال على الهامش:
هل من يحضر على الوقت تماما أفضل من الذي يحضر قبل الدوام بساعة .. فكروا فيها وغير مطلوب الرد عليه.
فأيهما يستحق أن نقول له "الوقت ممتاز" وأيهما نقول له "لا يوجد تأخير"؟!

  • Like 1
رابط هذا التعليق
شارك

24 دقائق مضت, Hawiii said:

سؤال على الهامش:
هل من يحضر على الوقت تماما أفضل من الذي يحضر قبل الدوام بساعة .. فكروا فيها وغير مطلوب الرد عليه.
فأيهما يستحق أن نقول له "الوقت ممتاز" وأيهما نقول له "لا يوجد تأخير"؟!

سؤال على سؤال:

الذي يحضر لمقر العمل قبل ساعة من الوقت المحدد لبداية عمله، يعمل إيه في مقر عمله؟ هل يستحق ممتاز؟ بكل تأكيد لا، في الإدارة يوجد معيار الحضور في الوقت، و هذا المطلوب و هو من نصفه بلا يوجد تأخير، و يوجد تأخير يمكن أن تنتج عنه محاسبة، و منه فالوقت ممتاز لا وجود لمبرر لها على الإطلاق.

  • Like 2
رابط هذا التعليق
شارك

32 دقائق مضت, Hawiii said:

سؤال على الهامش:
هل من يحضر على الوقت تماما أفضل من الذي يحضر قبل الدوام بساعة .. فكروا فيها وغير مطلوب الرد عليه.
فأيهما يستحق أن نقول له "الوقت ممتاز" وأيهما نقول له "لا يوجد تأخير

واجابة على هامش الموضوع نقول "الوقت ممتاز" من وجهة نظري الحضور في الوقت المحدد والخروج في الوقت المحدد

مع ذلك حضور الموظف وانتظامه في العمل يمثل عنصر واحد من ضمن 18 عنصر تمثل الجدارات الاساسية لقياس اداء الموظف التنفيذي

وعنصر واحد من ضمن 22 عنصر تمثل الجدارات الاساسية للوظائف القيادية المتوسطة والعليا

 

  • Like 2
رابط هذا التعليق
شارك

1 ساعه مضت, Hawiii said:

طبعا المقصود الموضوع وليس صاحب الموضوع 🙂

ارجو ان المثل القائل : " على نياتكم ترزقون  "  ينطبق علي

كان قصدي تلطيف الجو  

  • Like 3
رابط هذا التعليق
شارك

@biskra
@kha9009lid

!ذن هنا وحسب رأيكما يتساوى الإثنان في التصنيف وينضمان في شريحة واحدة.

مع أني لا زلت أرجح الأفضلية للذي يأتي مبكرا ، ولها ميزات كثيرة (لمن يفكر بعقلية المسئول) وعلى كل لكل من الإثنين فرصتين فمن يأتي على الوقت دائما فله فرصة أن يأتي على الدوام أو يأتي متأخرا ، أما من يأتي باكرا فله فرصة أن يأني باكرا أو يأتي مع الوقت تماما وسيكون سجله خاليا من أي تأخير.

كما من يأتي باكرا هذا بكل تأكيد أكثر حرصا واهتماما في عمله فهو ممن يحتاط للعوامل الطارئة والمفاجآت غير السارة والتي تتسبب في تأخيره وهناك فوائد أخرى في غير مسألة الحصور  لا داعي لسرها الآن.

تم تعديل بواسطه Hawiii
رابط هذا التعليق
شارك

58 دقائق مضت, Hawiii said:

مع أني لا زلت أرجح الأفضلية للذي يأتي مبكرا ، ولها ميزات كثيرة (لمن يفكر بعقلية المسئول)

رأيك ورأيي واخينا @biskra تمثل وجهة نظر جديرة بالاحترام ويتبناها العديد من الاداريين

ولكل مدرسة ادارية فلسفتها .

اما بشأن عقلية المسئول فاحد انجح المسئولين بالمملكة امر بايقاف نظام الحضور والانصراف بالكامل في ادارته واتاح للموظف الذي عمله لا يتطلب مقابلة الجمهور الحضور في اي وقت خلال اليوم ولكن قيد الامر بانجاز عدد محدد من المعاملات وكانت فترت ادارته نقله نوعية لتلك الجهة وبدلا انجاز المعاملة في اسبوع اصبحت تنجز المعاملة خلال يوم واحد

وجهة ادارية اخرى " معهد الادارة العامة " اثناء رئاسة د. محمد الطويل لم يكن هناك نظام حضور وانصراف مع ذلك المعهد من انجح الادارات الحكومية

و حاليا في نظام تقييم الموظفين المحافظة على وقت الدوام لا تمثل اكثر من 2% من الدرجة الكلية للتقييم

للموظف التنفيذي ولا تزيد عن 2.6% للموظف القيادي

70% للاهداف التي حققها الموظف التنفيذي والتي يتم الاتفاق عليها مع الموظف في بداية دورة الاداء السنوية و50% للوظائف القيادية

30% للجدارات للتنفيذي وعددها 18 منها المحافظة على وقت الدوام و50% للوظائف القيادية وعددها 22

مع ملاحظة ان عدم الالتزام بوقت الدوام يأثر سلبا على مقدرة الموظف على تحقيق الاهداف المطلوبة منه

وحتى لو استطاع تحقيقها فان عدم الالتزام يأثر على بقية الجدارات لكون الامر مرتبط

  • حس المسؤولية بعناصرها الثلاث
  • التعاون بعناصره الاربعة
  • التواصل بعنصريه
  • التوجه بالنتائج بعناصره الثلاثة
  • تطوير الافراد بعنصريه
  • الارتباط المهني بعناصرة الاربعة

ووللوظائف القيادية هناك جدارة القيادة وعدد عناصرها 4

اعتذر على الاطالة اخي الهاوي ولكن اردت ايضاح الامر من وجهة نظر ادارية اخرى

مع اطيب تحياتي

 

  • Like 2
رابط هذا التعليق
شارك

جميع الاخوة سلام عليكم ورحمة الله وبركاته ...

Hawiii و biskra و  kha9009lid  و ابو خليل

يبدو ان هناك لبس في الامر فالجميع يتصور ان الموضوع يخص حضور وانصراف موظفين ...

اوضح لكم اساتذتنا وانا اقلكم شأنا طبيعة الموضوع 

 البرنامج يخص تنظيم الرحلات في مجال عملي حيث ان هناك قانون في الطيران ينص على (ان التاخير اكثر من ساعة قياسا بالوقت الافتراضي المحدد مسبقا غير مسموح به ويحاسب المتسبب على ذلك) ، (واذا التاخير اقل من ساعة فيعتبر تاخير مسموح به لانه ضمن فترة السماح للانتقال من قطاع الى اخر) ، (واذا كان بنفس الوقت الافتراضي المحدد مسبقا فهو ممتاز ويسمى On Time)  ، (واما اذا اقلعت الطائرة قبل الوقت الافتراضي اي ان قائد الطاقم اسرع (قليلا) في طيرانه متجاوزا السرع المحددة فبالرغم من انه مخالف لقوانين الطيران الا انهم يتغاضون عن ذلك فبالمحصلة هو ليس ممتازا لانه مخالف قانونا فنقول عنه لايوجد تاخير) .

اما تعليق الاستاذ ابو خليل فاعلم انها على الموضوع ، وحتى لو قصدها عليه فسافتح الباب مجددا وازعجكم:jump: ...

شكرا وتحياتي لكم جميعا واسالكم الدعاء لي ولعائلتي بالشفاء عافاكم الله من كل وباء وبلاء .

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information