أرجو المساعدة في حساب الفرق بين ساعة بدء العمل وساعة انتهاء العمل في الشفت الليلي

[Samer Alani]

لدي جدول فيه ساعة بدء العمل وساعة انتهاء العمل

المشكلة أنه إدا كان بدء العمل الساعة 22:00 ونهاية العمل الساعة 6:00 يعطيني وقت أكبر من المنقضي

بحثت في الحلول وجدت أنه يجب أن نكتب دالة VB في حقل الوقت المنقضي وهي دالة IF بعد التحديث تقول:

(إذا كان الوقت المنقضي أكبر من صفر لا تقم بأي إجراء أو إذا كان صفر أو أصغر من صفر فأضف رقم 24 إلى النتيجة)

هل يمكن المساعدة بكتابة هذه الدالة

شكرا لكم سلفا

samer.accdb

[ابوخليل]

لا تسجل وقت الحضور او الانصراف بالساعات والدقائق

استخدم التاريخ الكامل (جنرال ) = NOW()

[Samer Alani]

أخي شكرا لردك، البرنامج هو خطة عمل موظفين عن شهر مقبل وطريقتك لاتفي بالغرض، أنا احتاج طريقة كتابة الدالة

[ابوخليل]

طريقتي هي الصحيحة

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

 

[Eng.Qassim]

3 ساعات مضت, Samer Alani said:

المشكلة أنه إدا كان بدء العمل الساعة 22:00 ونهاية العمل الساعة 6:00 يعطيني وقت أكبر من المنقضي

اخي العزيز ..حسبما اعلم ان هذا التوقيت تستخدمه الجيوش 

فحينما تقول الساعة 22 ..معناها الساعة 10 مساء ..وحينما تقول الساعة 6 معناها السادسة صباحا ...الفرق بينهما سيكون بالسالب يعني -16

كأنه يعيد بالتوقيت من الاعلى الى الاسفل 

اعمل هذه الدالة في استعلام :

 IIf([بدء الدوام]>[انتهاء الدوام];-([انتهاء الدوام]-[بدء الدوام])*24;([انتهاء الدوام]-[بدء الدوام])*24)

طبعا الدالة طلعت ملخبطة ..بسبب اللغة العربية 

[ابوخليل]

اي مبرمج يعتمد فقط الساعات والدقائق في الحضور والانصراف .. مبرمج تنقصه الخبرة

[Eng.Qassim]

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

اي مبرمج يعتمد فقط الساعات والدقائق في الحضور والانصراف .. مبرمج تنقصه الخبرة

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

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

مع احترامي الكبير لصاحب المشاركة ...

[ابوخليل]

5 دقائق مضت, Eng.Qassim said:

مع احترامي الكبير لصاحب المشاركة ...

حاشا لله .. انا لا اقصد صاحب الموضوع بعينه ،،، وهذه اول زيارة ومشاركة له .. وكان علينا واجب الترحيب 

وانما الكلام للعموم  .. وهم كثر .

[ابوخليل]

تفضل اخونا سامر

تطبيق احترافي لفكرة الحضور والانصراف واحتساب الوقت .. 

عربون صداقة 

samer2.accdb

[Samer Alani]

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

تطبيق احترافي لفكرة الحضور والانصراف واحتساب الوقت ..

أشكرك أستاذ أبو خليل على التجاوب وهذا فضل منك

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

IIf(([انتهاء الدوام]-[بدء الدوام])*24<0;(([انتهاء الدوام]-[بدء الدوام])*24)+24;([انتهاء الدوام]-[بدء الدوام])*24)

واذا كانت الدالة ملخبطة فقد أرفقت الملف

شكرا لكم

samer.accdb

[Moosak]

5 ساعات مضت, Samer Alani said:

IIf(([انتهاء الدوام]-[بدء الدوام])*24<0;(([انتهاء الدوام]-[بدء الدوام])*24)+24;([انتهاء الدوام]-[بدء الدوام])*24)

 

هكذا تضبط معك (استخدم أداة تنسيق الأكواد  من المحرر) :

IIf(([انتهاء الدوام]-[بدء الدوام])*24<0;(([انتهاء الدوام]-[بدء الدوام])*24)+24;([انتهاء الدوام]-[بدء الدوام])*24)

[Samer Alani]

3 ساعات مضت, Moosak said:

هكذا تضبط معك (استخدم أداة تنسيق الأكواد  من المحرر) :

IIf(([انتهاء الدوام]-[بدء الدوام])*24<0;(([انتهاء الدوام]-[بدء الدوام])*24)+24;([انتهاء الدوام]-[بدء الدوام])*24)

نعم هذا هو الكود شكرا لك

تم تعديل مايو 15, 2023 بواسطه Samer Alani

[AbuuAhmed]

يمكنك استخدام دالة myMod بدلا من استخدام دالة IIf لفحص المدخلات.
 

Function myMod(Number As Double, Divisor As Double) As Double
    If Divisor <> 0 Then
        myMod = Number - Divisor * Int(Number / Divisor)
    End If
End Function



Sub Test()
    Dim Time1 As Date
    Dim Time2 As Date

    Time1 = TimeSerial(23, 0, 0)
    Time2 = TimeSerial(7, 0, 0)
    
    Debug.Print myMod((Time2 - Time1) * 24, 24)
End Sub