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

[عذاب الزمان]

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

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

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

جزيتم خيرا .

test time.accdb

[عذاب الزمان]

الاخوة الاعزاء مازلت منتظرا اجابتكم مع الشكر لكم مقدما ...

[Hawiii]

اكتشف التعديلات بنفسك وإذا عجزت عن فهما أخبرني وسأشرح لك.

test time2.rar

[عذاب الزمان]

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

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

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

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

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

test time2.accdb

[Hawiii]

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

في السطر :
 

If Result < 1 Then

بدل 1 إلى -1

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

تم تعديل مارس 11, 2021 بواسطه Hawiii

[عذاب الزمان]

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

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

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

[Hawiii]

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

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

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

[عذاب الزمان]

اخي العزيز ...

متفضلا اجري التعديل على هذا المرفق ...

الشيء الوحيد الذي لا يعمل هو ( فرق الوقت اقل من ساعة ) .

مع الشكر الجزيل

 

test time2.accdb

[Hawiii]

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

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

test time3.rar

[Hawiii]

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

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

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

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

[عذاب الزمان]

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

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

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

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

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

[Hawiii]

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 ) تظهر السبب (الوقت ممتاز)

[Hawiii]

تنقيذ مني "عمياني" حرفيا كما طلبت.
 

test time4.rar

[ابوخليل]

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

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

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

 

[عذاب الزمان]

الاخ Hawiii ...

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

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

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

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

[عذاب الزمان]

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

ElseIf Result > 0 And Result <= 1 Then

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

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

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

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

[Hawiii]

منذ ساعه, عذاب الزمان said:

(قفل الباب عليه)

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

[Hawiii]

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

[biskra]

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

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

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

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

[kha9009lid]

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

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

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

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

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

 

[ابوخليل]

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

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

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

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

[Hawiii]

@biskra
@kha9009lid

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

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

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

تم تعديل مارس 14, 2021 بواسطه Hawiii

[kha9009lid]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

[عذاب الزمان]

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

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

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

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

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

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

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