حضور وانصراف الموظفين .. فترات محكمة خلال يوم .. وتمتد لليوم التالي

[ابوخليل]

السلام عليكم

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

انتظروني بعض الوقت كي اجري تجاربي النهائية على العمليات وعلى المخرجات .

[مهند محسن]

أحسنت استاذنا الكريم فى الإنتظار . بالنجاح والتوفيق دائما ان شاء الله

[Foksh]

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

السلام عليكم

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

انتظروني بعض الوقت كي اجري تجاربي النهائية على العمليات وعلى المخرجات .

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

اذا ليس هناك داعي للفترة الثالثة ؟؟

ننتظر ابداعك وتميزك معلمي الفاضل 🤗

[ابوخليل]

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

اذا ليس هناك داعي للفترة الثالثة ؟؟

نعم .. تماما

السر في هذه الدالة التي حلت المشكلة

الدالة تتحدث وليست بحاجة الى شرح  .. حيث تفحص الوقت الحالي هل هو في مساء اليوم  ام لا

  Dim startTime As Date
  Dim endTime As Date
  Dim currentTime As Date
  Dim i As Integer
  startTime = TimeValue("12:01:00")
  endTime = TimeValue("23:59:59")
  currentTime = Time()
  If currentTime > startTime And currentTime < endTime Then
     i = 1
     Else
     i = 2
     End If
 CheckTimeBetween = i

وكان السبب الرئيس في المشكلة هو دالة توقيت المساء سواء الحضور او الانصراف

لأنه عند دخول اليوم التالي يعتبر الدخول المسائي ضمن مساء الغد

لهذا تم تعديل دالتي التوقيت المسائي وفقا لهذه الدالة اعلاه  انظروا  كيف تتعامل الدالتان ادناه

الشرط يقول : اذا الوقت الحالي داخل في شرط الدالة وصحيح .. اي =1 فالتاريخ تاريخ اليوم

وإلا فإن التاريخ هو تاريخ  الأمس

Public Function funFirstTimeB_in()
Dim z As Integer
Dim i As Date, ii As Date, jj As Date
z = Nz(DLookup("free2_in", "tblTimeCtrl"), 0)
If CheckTimeBetween() = 1 Then
i = DLookup("fatrah2_In", "tblTimeCtrl") & " " & Date
ii = DateAdd("n", -z, i)
 Else
 jj = DateAdd("d", -1, Date)
 i = DLookup("fatrah2_In", "tblTimeCtrl") & " " & jj
 ii = DateAdd("n", -z, i)
   End If
funFirstTimeB_in = ii
End Function

Public Function funLastTimeB_Out()
Dim z As Integer
Dim x As Integer, xx As Integer
Dim i As Date, ii As Date, jj As Date
z = Nz(DLookup("free2_out", "tblTimeCtrl"), 0)
x = Nz(DLookup("hours_Work2", "tblTimeCtrl"), 0)
xx = (x * 60) + z
If CheckTimeBetween() = 1 Then
 i = DLookup("fatrah2_In", "tblTimeCtrl") & " " & Date
ii = DateAdd("n", xx, i)
 Else
 jj = DateAdd("d", -1, Date)
 i = DLookup("fatrah2_In", "tblTimeCtrl") & " " & jj
 ii = DateAdd("n", xx, i)
   End If
  funLastTimeB_Out = ii
End Function

 

للتجربة والتأكد ان كل شيء تمام  جعلت عند التوقيع  في الفترتين كليهما .. تظهر رسالتان الاولى لبداية التوقيع والثانية لنهايته

اذا الامور تمام يمكنك تعطيل وايقاف هذه الرسائل

بداية التوقيع = وقت الدخول الرسمي - الوقت المتاح قبل

نهاية التوقيع = وقت الدخول الرسمي + عدد ساعات العمل + الوقت المتاح بعد

جعلت الاوقات المتاحة بالدقائق من اجل دقة الاختيار

ChkInOut_CNet2.rar

[ابوخليل]

بالنسبة للتوقيع فهو مفتوح

الاول حضور والثاني خروج .. ويمكن تكرار الدخول والخروج عدة مرات في الفترة الواحدة