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

[اسلام سيد]

السلام عليكم

عندى 

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

New Microsoft Access Database.rar

 

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

[husamwahab]

عليكم السلام 

12 ساعات مضت, اسلام سيد said:

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

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

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

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

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

 

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

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

DifHourMin.rar

[اسلام سيد]

السلام علكم

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

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

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

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

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

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

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

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

 

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

تم تعديل سبتمبر 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.zip

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

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

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

5

0

0

8

4

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

[د.كاف يار]

اتوقع كذا صح

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

حسب هنا

2 ساعات مضت, اسلام سيد said:

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

 

 

46 دقائق مضت, أ / محمد صالح said:

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

 

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

New Microsoft Access Database.accdb

[اسلام سيد]

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

باختصار

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

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

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

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

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

 

[اسلام سيد]

في ٩‏/٩‏/٢٠٢١ at 12:56, د.كاف يار said:

اتوقع كذا صح

الحل هذا فوق الممتاز ، لكن لى طلب واحد كى استطيع استخدامه
وهو الساعه 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.accdb

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

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

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

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

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

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

بالتوفيق 

[اسلام سيد]

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

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

[اسلام سيد]

3 ساعات مضت, د.كاف يار said:

تفضل هذا الحل

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

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

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

[اسلام سيد]

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

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

يعنى موظف انصرف الساعه 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.accdb

[اسلام سيد]

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

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

[اسلام سيد]

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

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

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

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

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

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

 

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

حل ممتاز أ - محمد صالح.rar

 

انصراف مبكر: 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 للحفاظ على. تنسيق الرقم 

بالتوفيق 

[اسلام سيد]

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

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

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

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

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

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

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