حساب ساعات التأخر في الحضور وترحيل الفرق للشهر التالي 2

[ام ناصر]

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

في موضوع سابق كنت قد تسائلت عن احتساب ساعات التأخير التراكمي وكانت اجابت استاذي الفاضل @ابوخليل جدا وافية وتم العمل عليه حيث يحتسب المثال ساعات التأخير للاشهر دون قيد اوشرط لكن لاحظت مؤخراً ان كانت ساعات التأخير بين سنتين مثلا 2017-12 الى 2018-1 لاحظ انه يتم تصفير الرصيد السابق ويحتسب شهر الـ 1 كأنه شهر جديد ويتم احتساب تراكمي الساعات والايام  على بقية الاشهر وصولاً لشهر الـ 12 علما اني على اساس هذا الاستعلام استخرج استقطاعات الرواتب كل شهر بشهره وبهذا سوف يتغير ناتج الاشهر السابقة يعني مثلا الشهر  الـ 9 كان في الصورة ادناه رقم1 لم يسحتسب له في عدد ايام الغياب وهذا صحيح اما عند التحديث بدخول شهر الـ1 للسنة الجديدة اصبح يحتسب له يوم  كما مبين في رقم2 .. استاذنا الفاضل اذا امكن كيف يمكنني معالجة ذلك .

لكم خالص الامتنان والتقدير..

 

احتساب التأخر بالدقائق وترحيل .rar

[ابوخليل]

وعليكم السلام

المعالجة هي في تغيير قيمة الشهر في الجدول ، وجعله ( yyyymm) ستة خانات 

فيصبح شهر 1 هكذا  201801

باستخدام الدالة :

format([txtDate];"yyyymm")

 

[ام ناصر]

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

وعليكم السلام

المعالجة هي في تغيير قيمة الشهر في الجدول ، وجعله ( yyyymm) ستة خانات 

فيصبح شهر 1 هكذا  201801

باستخدام الدالة :

format([txtDate];"yyyymm")

 

ولو اثقلت عليك استاذ @ابوخليل  ممكن تعديل على المثال اعلاه ..

[ابوخليل]

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

احتساب التأخر بالدقائق .rar

[ام ناصر]

سلمت يداكم استاذ  

لو سمحت ممكن توضيح للتعديل الي تمت استحداثه على اللــ Module1 المستخدم  وآلية عمل دالة  الـ CLng  .

تم تعديل يناير 13, 2018 بواسطه ام ناصر

[co2002co]

احتساب التأخر بالدقائق .rar

[ابوخليل]

CLng  للتحويل الى قيمة رقمية ‘ واعتقد ان المثال يمكن ان يعمل بدونها ، ولكني وضعتها  من اجل هذا السطر في الحدة النمطية :

i=DMin("monthx", "qryScnd", " nID =" & uid)

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

كان الوضع السابق انه يعتبر  الشهور كأرقام تبدأ من 1 وتنتهي بـــ 12

الآن يأخذ الارقام الموجودة ابتداء بالاصغر ويستمر الى مالا نهاية

i = DMin("monthx", "qryScnd", " nID =" & uid)
ii = mnthID
For z = i To ii

فـــ  i  تمثل الشهر الاصغر  و ii تمثل آخر شهر  و z تمثل الشهر الذي تتم معالجته

 

 

  

[ام ناصر]

في 1/12/2018 at 21:07, ابوخليل said:

CLng  للتحويل الى قيمة رقمية ‘ واعتقد ان المثال يمكن ان يعمل بدونها ، ولكني وضعتها  من اجل هذا السطر في الحدة النمطية :

i=DMin("monthx", "qryScnd", " nID =" & uid)

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

كان الوضع السابق انه يعتبر  الشهور كأرقام تبدأ من 1 وتنتهي بـــ 12

الآن يأخذ الارقام الموجودة ابتداء بالاصغر ويستمر الى مالا نهاية

i = DMin("monthx", "qryScnd", " nID =" & uid)
ii = mnthID
For z = i To ii

فـــ  i  تمثل الشهر الاصغر  و ii تمثل آخر شهر  و z تمثل الشهر الذي تتم معالجته

 

 

  

شكرا جزيلاً  استاذ