استعلام يحسب الوقت المستغرق في الاسبوع

[بلال اليامين]

السلام عليكم اريد استعلام حساب الوقت المستغرق في الاسبوع 

اليكم الصورة  اريد حساب أربع ساعات 

&&ساعات.accdb

تم تعديل نوفمبر 22, 2021 بواسطه بلال اليامين

[محمد أبوعبدالله]

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

يمكنك استخدام الكود التالي

Format([TimeOut1]-[TimeIn1];"hh:nn:ss")

والافضل اخي بلال ان تكون مسميات العناصر باللغة اللاتينية لسهولة التعامل معها ولك الشكر

تحياتي

[محمد أبوعبدالله]

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

        Me.TotalTime11 = TimeSerial(Hour([TimeIn1]) - Hour([TimeOut1]), Minute([TimeIn1]) - Minute([TimeOut1]), Second([TimeIn1]) - Second([TimeOut1]))
        Me.TotalTime12 = TimeSerial(Hour([TimeIn2]) - Hour([TimeOut2]), Minute([TimeIn2]) - Minute([TimeOut2]), Second([TimeIn2]) - Second([TimeOut2]))
        Me.TotalTime13 = TimeSerial(Hour([TimeIn3]) - Hour([TimeOut3]), Minute([TimeIn3]) - Minute([TimeOut3]), Second([TimeIn3]) - Second([TimeOut3]))
        Me.TotalTime14 = TimeSerial(Hour([TimeIn4]) - Hour([TimeOut4]), Minute([TimeIn4]) - Minute([TimeOut4]), Second([TimeIn4]) - Second([TimeOut4]))
        Me.TotalTime15 = TimeSerial(Hour([TimeIn5]) - Hour([TimeOut5]), Minute([TimeIn5]) - Minute([TimeOut5]), Second([TimeIn5]) - Second([TimeOut5]))
        
        Me.TotalTimeALL = Me.TotalTime11 + Me.TotalTime12 + Me.TotalTime13 + Me.TotalTime14 + Me.TotalTime15

&&ساعات.rar

تحياتي

[بلال اليامين]

اخي اريد 15 دقيقة لم تحسب و اريد عند الحساب لم تفرغ الحقول

[محمد أبوعبدالله]

11 دقائق مضت, بلال اليامين said:

اخي اريد 15 دقيقة لم تحسب

في الاستعلام الموجود يقوم بحساب الساعات فقط ... ما الجديد الذي تريده ؟

12 دقائق مضت, بلال اليامين said:

و اريد عند الحساب لم تفرغ الحقول

برجاء التوضيح اكثر ولك الشكر

تحياتي

[بلال اليامين]

اخي اريد حساب عدد الساعات فقط دون حساب 15 دقيقة 

 

لان 15 دقيقة راحة 

مجموع الساعات 20 سا

[محمد أبوعبدالله]

تفضل اخي الكريم

         Me.TotalTime11 = Int(DateDiff("h", Me.TimeIn1, Me.TimeOut1))
         Me.TotalTime12 = Int(DateDiff("h", Me.TimeIn2, Me.TimeOut2))
         Me.TotalTime13 = Int(DateDiff("h", Me.TimeIn3, Me.TimeOut3))
         Me.TotalTime14 = Int(DateDiff("h", Me.TimeIn4, Me.TimeOut4))
         Me.TotalTime15 = Int(DateDiff("h", Me.TimeIn5, Me.TimeOut5))
         
         Me.TotalTimeALL = Me.TotalTime11 + Me.TotalTime12 + Me.TotalTime13 + Me.TotalTime14 + Me.TotalTime15 & " ساعة"

&&ساعات.rar

تحياتي

[بلال اليامين]

شكرا وبارك الله فيك الاستاذ محمد أبوعبدالله 

استاذ مازال عند فتح التقرير لم يظهر عدد الساعات 

 

[اشرف]

السلام عليكم

استاذنا الفاضل بلال اليامين

عدد الساعات ظاهر وكله تمام جهد مشكور لاستاذنا الفاضل 

محمد أبوعبدالله

•  

 

تم تعديل نوفمبر 23, 2021 بواسطه اشرف

[بلال اليامين]

استاذ نا الفاضل اشرف   

لم يظهر في التقرير

[اشرف]

اخي العزيز فين التقرير  ؟

[بلال اليامين]

اخي اليك الشرح

[د.كاف يار]

تفضل هذا التعديل

 

&&ساعات (1).accdb

[د.كاف يار]

تفضل هذا التقرير كما بالصورة

 

 

&&ساعات (1).zip