مشكله عند طرح وقت الانصراف الفعلى من الانصراف الاساسى

[اسلام سيد]

السلام عليكم

عندى 

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

New Microsoft Access Database.rarFetching info...

 

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

[husamwahab]

عليكم السلام 

  في 7‏/9‏/2021 at 21:21, اسلام سيد said:

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

Expand  

المشكلة ليست في الكود وانما في طريقة التعامل مع الوقت 

لحساب فرق الوقت فالوقت غير كافي للحساب وانما نحتاج الى التاريخ ايضا

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

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

 

وهذه محاولة ارجو ان تكون موفقة

وعذرا للاطالة

DifHourMin.rarFetching info...

[اسلام سيد]

السلام علكم

جهودكم مشكورة ، لكن حتى الان لم اصل الى المراد

عموما فى حل لاحد الاخوة عاجبنى لكن ناقص له خطوة لعل احد هنا يقدر يفيدنى

IIf([بدايه الانصراف]>[الانصراف];IIf(Right([الانصراف];1)="ص";24-(([بدايه الانصراف]-[الانصراف])*24);(([بدايه الانصراف]-[الانصراف])*24));IIf(Right([الانصراف];1)="ص";"";([الانصراف]-[بدايه الانصراف])*24))

اريد فقط وضع شرط اضافى لو الانصراف اقل من بدايه الانصراف يعنى مثلا 

الموظف انصرف 2م بدلا من 5 م يطلع زيرو  لان هنا تاخير مش اضافى

وتجميع لكل الحالات الوارده فى المثال

لو الانصراف اكبر من بدايه الانصراف = يطرح الانصراف من بدايه الانصراف فقط لاغير

مع مراعاه الوقت بعد منتصف الليل

 

حل ممتاز شيفان ريكانى للطرح بين الوقتين.rarFetching info...

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

[أ / محمد صالح]

يمكنك استعمال هذه المعادلة مع تغيير تنسيق الحقل إلى hh:mm

الاضافى: IIf([الانصراف]>[بدايه الانصراف],[الانصراف]-[بدايه الانصراف],IIf([بدايه الانصراف]-[الانصراف]<0.5,0,24-[بدايه الانصراف]+[الانصراف]))

إن شاء اللّه هي المطلوب 

حيث تراعي إذا كان الانصراف قبل أو بعد بداية الانصراف 

حتى بعد منتصف الليل 

وإذا كنت تريد الحصول على رقم صحيح فيمكنك استعمال هذه المعادلة بدون تنسيق الحقل

الاضافى: hour(IIf([الانصراف]>[بدايه الانصراف],[الانصراف]-[بدايه الانصراف],IIf([بدايه الانصراف]-[الانصراف]<0.5,0,24-[بدايه الانصراف]+[الانصراف])))

بالتوفيق 

[د.كاف يار]

تفضل استخدم هذه المعادلة بكل بساطة

DateDiff("h";CDate([الانصراف]);CDate([بدايه الانصراف]))

 

New Microsoft Access Database22222.zipFetching info...

[أ / محمد صالح]

لا أعتقد أن هذا هو المطلوب @د.كاف يار

لأن النتيجة المطلوبة على. ترتيب السجلات هي

5

0

0

8

4

والحمد لله تم تحققها في معادلتي

[د.كاف يار]

اتوقع كذا صح

 IIf(DateDiff("h";CDate([بدايه الانصراف]);CDate([الانصراف]))<=0;0;DateDiff("h";CDate([بدايه الانصراف]);CDate([الانصراف])))

حسب هنا

  في 9‏/9‏/2021 at 08:14, اسلام سيد said:

الموظف انصرف 2م بدلا من 5 م يطلع زيرو  لان هنا تاخير مش اضافى

 

Expand  

 

  في 9‏/9‏/2021 at 10:09, أ / محمد صالح said:

لا أعتقد أن هذا هو المطلوب @د.كاف يار

 

Expand  

فإذا كان فرق الانصراف الاساسي عن الانصراف الفعلي اقل من صفر فتكون النتيجة صفر

New Microsoft Access Database.accdbFetching info...

[اسلام سيد]

فعلا مهم جدا موضوع منتصف الليل

باختصار

انا اريد طرح وقت الانصراف الفعلى من بدايه الانصراف

ولو الوقتين متساوين = صفر

ولو الانصراف الفعلى اكبر من الانصراف ( وقت الانصراف ) هنا اضافى يطرح الكبير من الصغير مع مراعاة منتصف الليل

لو الانصراف الفعلى اقل من بدايه الانصراف المحدد هنا يظهر صفر لانه ليس باضافى

وجزاكم الله كل خير

 

[اسلام سيد]

  في 9‏/9‏/2021 at 10:56, د.كاف يار said:

اتوقع كذا صح

Expand  

الحل هذا فوق الممتاز ، لكن لى طلب واحد كى استطيع استخدامه
وهو الساعه 01:00:00AM ده بعد منتصف الليل يعنى الموظف ظل فى العمل بعد وقت الانصراف اللى هو 05:00:00PM 
ففى هذة الحاله له اضافى 8 ساعات 

ارجو تعديلها لكى استطيع الاستفده منه بعد اذنك @د.كاف يار

 

[أ / محمد صالح]

الأستاذ الفاضل @اسلام سيد

لماذا التطويل في الموضوع؟ 

أليست المعادلة السابقة مني هي المطلوب تماما ¿¿

وفقنا الله جميعا لكل ما يحبه ويرضاه 

 

[اسلام سيد]

الحل ايضا ممتاز ولكن لا اريد تحويل الصيغه hh:mm لان اريد ان تخرج رقم صحيح 

[د.كاف يار]

تفضل هذا الحل

بالإمكان تغيير وقت الإنصراف من خلال الكود

نهاية الدوام الساعة 8 صباحا و بعدها سيتم حساب يوم جديد

Public Function Overtime(RealCheckoutTime As Date, CheckoutTime As Date)
Select Case CheckoutTime
 Case #1:00:00 AM# To #8:00:00 AM#
        Overtime = DateDiff("h", DateAdd("d", -1, RealCheckoutTime), CheckoutTime)
 Case Is > RealCheckoutTime
        Overtime = DateDiff("h", RealCheckoutTime, CheckoutTime)
 Case lese
        Overtime = 0
End Select
End Function

New Microsoft Access Database.accdbFetching info...

تم تعديل سبتمبر 10, 2021 بواسطه د.كاف يار

[أ / محمد صالح]

بما ان الضرب في 24 يجلب التاريخ مع الوقت وليس الوقت فقط

نجرب استعمال دالة hour

الاضافي: hour(000)

حيث 000 هي المعادلة القديمة 

بالتوفيق 

[اسلام سيد]

بالضبط كده
الحمد لله

جزاكم الله الف خير

[اسلام سيد]

  في 10‏/9‏/2021 at 16:17, د.كاف يار said:

تفضل هذا الحل

بالإمكان تغيير وقت الإنصراف من خلال الكود

Expand  

معالى الدكتور حل حضرتك رووووووووووووعه

جزاكم الله خيرا

[اسلام سيد]

للاسف تظل الى الان الاجابات بها خلل بالنسبة لى

لانها لا تعطى نتيجه للكسور

يعنى موظف انصرف الساعه 1:00 ص تعطى 8 ساعات اضافى
ولو انصرف 1:30 ص تعطى ايضا 8 ساعات 
رغم الصح انها تعطى 8.5

مثل الداله التاليه 

IIf([بدايه الانصراف]>[الانصراف];IIf(Right([الانصراف];1)="ص";24-(([بدايه الانصراف]-[الانصراف])*24);(([بدايه الانصراف]-[الانصراف])*24));IIf(Right([الانصراف];1)="ص";"";([الانصراف]-[بدايه الانصراف])*24))

الا ان الداله السابقها بها خلل واحد فقط

وهو فى حاله الانصراف مبكرا قبل موعد تاتنصراف الرسمى تعطى ناتج والصح تعطى صفرا

يعنى لو الوقت الرسمى للانصراف 5 م والموظف انصرف فعليا الساعه 4م تعطى 1 والصح تعطى صفرا

اتمنى من الله ان يكشف كربى ويسدد رميكم

وجزاكم الله خيرا جميعا

[أ / محمد صالح]

New Microsoft Access Database.accdbFetching info...

[اسلام سيد]

الف شكر استاذنا العزيز

جزاكم الله خيرا

[اسلام سيد]

استاذ الحبيب @أ / محمد صالح

كرمك طمعنى اكثر واكثر فى الاستفاده من علمك الغزير

لى استفسار اخر مرتبط بنفس الموضوع طرح الوقت ونفس الملف

لذالك استسمح حضرتك ان يظل فى نفس الموضوع الحالى

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

لكن عند الانصراف بعد منتصف الليل يظهر لى انصراف مبكر رغم انه انصراف متاخر عن المواعيد الرسميه

 

انظر الانصراف 1:30ص تظهر فى الانصراف المبكر والصح يكون صفرا

حل ممتاز أ - محمد صالح.rarFetching info...

 

انصراف مبكر: IIf([بدايه الانصراف]>[الانصراف];[بدايه الانصراف]-[الانصراف];0)*24

 

[أ / محمد صالح]

حينما لا يكون أمامي جهاز كمبيوتر أقترح عليك اقتراحات

ولكن الآن إليك الحل بفضل الله

بتغيير الشرط إلى بداية الانصرف طرح الانصراف اكبر من صفر واقل من نصف

انصراف مبكر: IIf([بدايه الانصراف]-[الانصراف]>0 and [بدايه الانصراف]-[الانصراف]<0.5,[بدايه الانصراف]-[الانصراف],0)*24

بالتوفيق 

[اسلام سيد]

ربنا يرضى عنك

ويفرح قلبك

وييسر امرك

[اسلام سيد]

اخر نقطه فى الداله الاخيرة واستحيى والله من حضرتك

وهى انها لا تقبل الكسور اى الدقائق

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

 Hour(IIf([بدايه الانصراف]-[الانصراف]>0 And [بدايه الانصراف]-[الانصراف]<0.5;[بدايه الانصراف]-[الانصراف];0)*24)+Minute(IIf([بدايه الانصراف]-[الانصراف]>0 And [بدايه الانصراف]-[الانصراف]<0.5;[بدايه الانصراف]-[الانصراف];0)*24)/60

 

[أ / محمد صالح]

عذرا لتأخر الرد ما رأيت المشاركة إلا الآن

وبعد تجارب بسيطة تم تبسيط المعادلتين الاضافي والانصراف المبكر

انصراف مبكر: Round (IIf([بدايه الانصراف]-[الانصراف]>0 and [بدايه الانصراف]-[الانصراف]<0.5,[بدايه الانصراف]-[الانصراف],0)*24,2)

الإضافي: round(IIf([الانصراف]>[بدايه الانصراف],[الانصراف]-[بدايه الانصراف],IIf([بدايه الانصراف]-[الانصراف]<0.5,0,1-([بدايه الانصراف]-[الانصراف])))*24,2)

ويمكن تطبيق المنازل العشرية 2 للحفاظ على. تنسيق الرقم 

بالتوفيق 

[اسلام سيد]

حقا افضل اجابه 

جزاكم الله خيرا

ربنا يزيدك من نعيم الدنيا والاخرة

واسال الله ان يجعل لك من كل ضيق فرجا كما فرجت كربى ، 

الف مليون شكرا استاذنا الحبيب

[أ / محمد صالح]

جميعا بإذن الله