التعديل على احتساب الشهر 30 يوما

[Ahmed_J]

السلام عليكم

لدي ملف لاحتساب الخدمة المضافة للموظف (خدمة عقد او اجر يومي) ... الخ فيه جدولين الجدول الاول معلومات عن الموظف والجدول الثاني فيه فترة المكوث (البقاء)

بالسنوات لكل درجة وظيفية يتم مقارنتها بالدرجة الوظيفية في النموذج لاحتساب فترة المكوث.

المطلوب:

1- احتساب تاريخ الاستحقاق الجديد : انقاص الخدمة المضافة شهر  والخدمة المضافة يوم من تاريخ الاستحقاق السابق بشرط الشهر يكون 30 يوم  

2- احتساب الدرجة الجديدة والمرحلة الجديدة:  يتم توزيع الخدمة المضافة سنة مثلا (7) سنوات يتم مقارنتها بالدرجة الوظيفية بالنموذج مع الجدول tp2 

(اي لوكان الموظف في الدرجة الثامنة  نضيف له درجة واحدة  وثلاث مراحل وظيفية )  لان فترة مكوثه 4 سنوات فتصبح الدرجة الوظيفية الجديدة = 7 

والمرحلة الوظيفية الجديدة =3 (اي يتم توزيعها)

تحياتي

Test-2.accdb

 

 

تم تعديل مارس 8 بواسطه Ahmed_J

[Ahmed_J]

up

[Ahmed_J]

up

[Foksh]

في 8‏/3‏/2024 at 13:54, Ahmed_J said:

1- احتساب تاريخ الاستحقاق الجديد : انقاص الخدمة المضافة شهر  والخدمة المضافة يوم من تاريخ الاستحقاق السابق بشرط الشهر يكون 30 يوم  

 

أخي @Ahmed_J ، هذه تجربتي بالنقطة الأولى . أعلمني إن كانت النتيجة توافق طلبك .

والثانية للنظر فيها بعد اتمام المطلب الأول 

* ملاحظة :-

اضطررت لتغيير المسميات من العربية الى مسميات انجليزية ( متأملاً منك الإهتمام بهذه النقطة في مشاريعك مستقبلاً للوصول إلى نتيجة أفضل وأدق )

 

Test-2.accdb

 

تم تعديل مارس 12 بواسطه Foksh

[Ahmed_J]

السلام عليكم

استاذ @Foksh

في فرق يوم واحد  انظر للصورة لو غيرت الرقم

انا اريد كل اشهر السنة تساوي 30 يوم

 

تم تعديل مارس 12 بواسطه Ahmed_J

[Foksh]

يعني يا أستاذي الكريم ، لو فرضاً صادف أن التاريخ 12/03/2023 وأردنا طرح 13 يوم منه . فأي النتائج ستكون صحيحة بالنسبة لك :-

30/02/2023

28/02/2023

 

 

لا أرى المنطق في طلبك 

تم تعديل مارس 12 بواسطه Foksh

[Ahmed_J]

استاذي العزيز @Foksh

يصبح التاريخ2023 29/2/3

لان الخدمة الوظيفية تحتسب في بلدنا  كل شهر = 30 يوم 

تحياتي

[Foksh]

لا أعتقد أنه من الممكن التعامل مع التواريخ خلاف المنطق !!

ففي مثالي السابق شهر 2 في عام 2023 كان 28 يوم وليس 29 ، فكيف تريد التعامل مع التاريخ خلاف المنطق !!!

كأن تقول اريد ان يتم احتساب الفرق بين وقتين بعتبار ان الأيام جميعها تتكون من 25 ساعة أو 20 ساعة !!

أرجو أن تكون الفكرة قد توضحت لك حتى تجد الحل المناسب لطلبك 😊

[Ahmed_J]

السلام عليكم

استاذ @Foksh

في مثال للاستاذ جعقر  هو يفي للغرض تماما لكن في فرق يوم بالجمع او الطرح 

لو امكن من حضرتك التعديل علية على اعتبار اي شهر هو 30 يوم 

اكون شاكرا لك

مثلا لو كان التاريخ 11/11/2023  واردت ان اطرح منه 27 يوم يكون الحل الصحيح  14/10/2023

301.Dates_Calculations2.mdb

تم تعديل مارس 13 بواسطه Ahmed_J

[Foksh]

لو عدلت الكود بناءً على التاريخ اللي حددته سيكون سهل وبدون مشكلة ، لكن جربه على تواريخ اخرى ستلاحظ خطأ في عملية الحساب ،، على العموم غداً إن شاء الله سأرسل لك التعديل المتوافق مع مثالك ، جربه واخبرني بالنتائج 

[Barna]

4 ساعات مضت, Ahmed_J said:

في مثال للاستاذ جعقر  هو يفي للغرض تماما لكن في فرق يوم بالجمع او الطرح 

لو امكن من حضرتك التعديل علية على اعتبار اي شهر هو 30 يوم 

اكون شاكرا لك

مثلا لو كان التاريخ 11/11/2023  واردت ان اطرح منه 27 يوم يكون الحل الصحيح  14/10/2023

تفضل استاذ @Ahmed_J >>> ربما يلبي طلبك .....

 

301.Dates_Calculations2.mdb

[Ahmed_J]

السلام عليكم

استاذ @Barna

شكرا لك

بعد التجربة في احتساب صحيح وفي احتساب خطا وخصوصا في شهر شباط 

لابد من طريقة لاحتساب السنة 360 يوم وكل شهر = 30 يوم مهما كان عدد ايامه

تحياتي

 

[ابوخليل]

اخي الكريم انا لم افهم مطلبك في اول مشاركة لك

ولكني فهمت انك تريد تتعامل مع التاريخ على اساس الشهر 30 يوما

اليك مثالا وجدته في مكتبتي ومن عملي اتمنى ان يحقق طلبك

months30.rar

[Ahmed_J]

استاذي @ابوخليل

الله يحفظك

تمام الملف يلبي الطلب

لكن اريد تطبيقه على الملف المرفق سواء بالاضافة او الطرح

تحياتي

301.Dates_Calculations2 (1).mdb

تم تعديل مارس 14 بواسطه Ahmed_J

[ابوخليل]

ما المطلوب

الموجود نموذج فيه :

1- ( اضف / اطرح  ) ماذا تعني هذه ؟

2-  سنة / شهر / يوم  

اشرح المطلوب اذا ادخلت تاريخين ماذا اختار ؟  وما الناتج ؟

اعطني مثالا لنتيجة تاريخين من عندك

[Ahmed_J]

السلام عليكم

استاذ @ابوخليل

هي زيادة  (سنة / شهر / يوم) او طرح ( سنة / شهر / يوم ) من التاريخ الاول وهي ارقام يتم ادخالها يديويا

1- مثلا لو اردنا اضافة (1 سنة و 3 اشهر و 17 يوم) على التاريخ 2023/7/1  فتصبح النتيجة الصحيحة  18-10-2024 ويظهر في التاريخ الثاني

2- مثلا لو اردنا طرح (1 سنة و 3 اشهر و 17 يوم) من التاريخ  2023/7/1 فتصبح النتيجة الصحيحة 14-03-2022 ويظهر في التاريخ الثاني

اتمنى وصلت الفكرة

تحياتي

تم تعديل مارس 14 بواسطه Ahmed_J

[ابوخليل]

آآآآآه يعني النتيجة تظهر في حقل التاريخ الثاني 

صحيح؟

 

[Ahmed_J]

نعم يااستاذ

في التاريخ الثاني

[Foksh]

لا اريد الإحباط لصاحب الموضوع الأستاذ @Ahmed_J ، ولكن في هذا المثال التالي أخبرني أين المنطق في النتيجة !!!

لو طرحنا 14 يوم من التاريخ الحالي 14/03/2024 فأن النتيجة حسب طلبك لو تم تنفيذها ستكون 30/02/2024 ،برأيك لو انت محاسب أو مدير شركة وقد قدمت لك انا كموظف تقرير يضم هذا التاريخ ، هل ستقبل به حتى لو لم تكن ستستخدم النتائج في تقرير ، هو مجرد نقاش لا دخل له بالحلول المقدمة.

[ابوخليل]

ههههههههه

صحيح كلامكك استاذ فادي

ولكن مسألة الــــ 30 يوم  حقيقية في بعض الانظمة ويؤكدون عليها 

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

انتظروني الحل يسير باذن الله سأوافيكم به

[Ahmed_J]

استاذ @Foksh

حساب الراتب وخدمة التقاعد يحتسب  360 يوم بالسنة  اي كل شهر = 30 يوم مهما كان الشهر 31 ام 30 ام 29 ام 28 يوم

19 دقائق مضت, Foksh said:

لو طرحنا 14 يوم من التاريخ الحالي 14/03/2024 فأن النتيجة حسب طلبك لو تم تنفيذها ستكون 30/02/2024 

تم تعديل مارس 14 بواسطه Ahmed_J

[Foksh]

21 دقائق مضت, ابوخليل said:

ولكن مسألة الــــ 30 يوم  حقيقية في بعض الانظمة ويؤكدون عليها

أعي كلامك جيدا استاذنا الفاضل ، فهو ما يسمى بنظام المياومة تقريباً للموظفين الذين لم يتم تثبيتهم في الكادر الوظيفي عندنا ، ولكن فكرة انه عدم وجود المنطق في كتابة التاريخ هي ما سببت لي هذا التعمق في التعليقات.

 

9 دقائق مضت, Ahmed_J said:

حساب الخدمة في بلدنا والراتب والتقاعد يحتسب  360 يوم بالسنة  اي كل شهر = 30 يوم مهما كان الشهر 31 ام 30 ام 29 ام 28 يوم

يعني بناءً على النموذج لو تم طرح 13 يوم من التاريخ الحالي 14/03/2024سيقوم النموذج بإنتاج وخلق تاريخ جديد ليس له وجود في البشرية . ولا حتى كل 4 سنوات ( لا كبيسة ولا اي غيره ) 😅 30/02/2024 😵

 

اشكر لكم سعة صدركم ، واعتذر اذا خرجت خارج إطار الموضوع 🤗

تم تعديل مارس 14 بواسطه Foksh

[ابوخليل]

تفضل طريقة حساب البدو 

Dim m1, ym As Integer
Dim idate As Date
ym = (Me.iYear * 12) + Me.iMonth
If Me.frame1 = 1 Then
idate = DateAdd("m", ym, Date_1)
Date_2 = DateAdd("d", Me.iDay, idate)
ElseIf Me.frame1 = 2 Then
idate = DateAdd("m", -ym, Date_1)
Date_2 = DateAdd("d", -Me.iDay, idate) - 1
Else
Exit Sub
End If

 

30Dates.mdb

[Ahmed_J]

السلام عليكم

استاذ @ابوخليل

والله تعبتك معي كثيرا

الله يبارك فيك

كل النتائج تمام الا شهر شباط فيه فرق لم يكون 30 يوم

لو كان التاريخ 13/3/2024  واردنا انقاص منه 14 يوم  المفروض يكون الناتج الصحيح هو 29/2/2024

 

تم تعديل مارس 14 بواسطه Ahmed_J

[Foksh]

🧐

متابع بصمت حتى أرى النتيجة النهائية وأثري معلومتي ومكتبتي بهذا الحدث 😀