جمع الخدمة الوظيفية بالنموذج

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

لدي نموذج لاحد الاخوة في الموقع لحساب مدة الخدمة الوظيفية  باليوم والشهر والسنة

المطلوب تصحيح الكود  لحساب الخدمة النهائية  (الخدمة الحالية + الخدمة السابقة - قترة الانقطاع) = الخدمة النهائية (جمع المدد)

مع العلم اريد ان يكون حساب ايام الشهر هي (30) يوم فقط  ومازاد عن ذلك يضافة للاشهر  التي هي (12) شهر ومازاد عن ذلك يضاف للسنين

ولا يجب ان يكون هنالك رقم بالسالب

مرفق صورة فيها خدمة موظف حقيقية 

تحياتي للجميع

جمع الخدمة بالنموذج.accdb

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

[ابوخليل]

تفضل حسب طلبك

Dim rs1, rs2, rs3, rs4 As Integer
rs1 = (Me.YF * 360) + (Me.MF * 30) + Me.DF + (Me.YN * 360) + (Me.MN * 30) + Me.DN
rs2 = (Me.yk * 360) + (Me.mk * 30) + Me.dk
rs3 = rs1 - rs2
Me.TY = rs3 \ 360
Me.TD = rs3 Mod 30
rs4 = rs3 Mod 360
Me.TM = (rs4 - Me.TD) / 30

 

جمع الخدمة بالنموذج.rar

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

تسلم ايدك استاذنا العزيز @ابوخليل كلوا تمام بارك الله فيك

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

لفد وجدت وحدة نمطية لاحد الاساتذة في الموقع يتم استدعائها عن طريق الاستعلام

وعملت منها وحدة نمطية منها لجمع الايام والثانية لجمع الاشهر والثالثة لجمع السنوات والرابعة تشمل الكل باليوم والشهر والسنة

لكن واجهتني اخطاء  بعملية الجمع والطرح وظهور ارقام بالسالب 

يوجد ملف مرفق ارجو التعديل علية لاهمية الموضوع

تحياتي للجميع 

' الوحدة النمطية الاصلية
Function Work(SumDto, SumMto As Byte, SumYto As Integer) As String
Dim dd, mm As Byte
Dim yy As Integer
If SumDto > 30 Then
SumDto = SumDto Mod 30
SumMto = SumMto + 1
End If
If SumMto > 12 Then
SumMto = SumMto Mod 12
SumYto = SumYto + 1
End If
dd = SumDto
mm = SumMto
yy = SumYto
Work = dd & " يوم و" & mm & " شهر و" & yy & " سنة"
End Function

 

جمع مدد الخدمة بالنموذج.accdb

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

[ابوخليل]

تفضل

جمع مدد الخدمة بالنموذج2.rar

[Ahmed_J]

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

بارك الله فيك وجعلها في ميزان حسناتك

كلوا تمام عاشت ايدك

سؤال لغرض المعرفة بالشيء: هل الوحدة النمطية التي وضعتها ليس لها جدوى ام فيها اخطاء

تحياتي لك استاذنا العزيز

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

[Eng.Qassim]

منذ ساعه, Ahmed_J said:

هل الوحدة النمطية التي وضعتها ليس لها جدوى ام فيها اخطاء

نعم تعمل لكنك لن تحتاج لها لان مافعله الاستاذ @ابوخليل سوف لن يجعل عدد الايام اكثر من 30 او عدد الاشهر اكثر من 12

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

1-      في عمود rs  تم حساب عدد الايام للخدمة الكلية

2-      العمود rsw  يظهر لنا باقي قسمة عدد الايام الكلي على 360 يوم والتي نحتاجها لاحقا

3-      العمود rs_y  يظهر لنا عدد سنوات ايام الخدمة الفعلية دون كسور مع الانتباه الى ان الاستاذ استخدم العلامة (\) وليس علامة القسمة (/)

4-      العمود rs_d  يظهر لنا المتبقي من قسمة عدد الايام الكلية مقسوما على 30 يوم

5-      العمود rs_m يظهر لنا ناتج طرح الايام التي ظهرت في عمود الفقرة 2 امن الايام التي ظهرت في العمود 4 مقسوما على 30 لتظهر لنا عدد الاشهر

6-      النتيجة ظهرت لنا عدد السنوات في rs_y وعدد الاشهر في rs_m  وعدد الايام في rs_d