حساب الشهر 30 يوم

[Ahmed_J]

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

لدي نموذج حساب الفرق بين تاريخين (الشهر واليوم) فقط

المطلوب :  ايجاد الفرق بين الاشهر بالايام (تكون ايام الشهر 30 يوم  والسنة 360 يوم  ثابته) ومازاد عن 30 يوم يتحول اللى شهر  (عدد الاشهر مفتوح)

مثلا بداية التاريخ هو (28/2/2022) ونهاية التاريخ هو (1/3/2022) اريد الناتج ان يكون 3 يوم 

مثلا بداية التاريخ هو (28/2/2022) ونهاية التاريخ هو (1/11/2022) اريد الناتج ان يكون  8 اشهر و 3 يوم 

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

 

حساب الشهر_30 يوم.accdb

تم تعديل نوفمبر 8, 2022 بواسطه Ahmed_J

[أبو ماجد الغامدي]

تفضل حبيبنا

حساب الشهر 30.rar

[husamwahab]

وهذه مشاركة مع الاستاذ ابو ماجد

Root_111.rar

[Ahmed_J]

السلام عليكم 

شكرا لك استاذ @أبو ماجد الغامدي

شكرا لك استاذ @husamwahab  الكود اعتقد انه تمام ممنون منك جدا

لي طلب اخر لو سمحت

عند احتساب العلاوة للموظف  تحتسب من اليوم الاول للشهر مهما كان تاريخها  مثلا  تاريخ استحقاق علاوة الموظف بالامر الاداري هو  28/1/2022 

تحتسب لغرض الصرف من تاريخ 1/1/2022  ونحن مثلا في تاريخ 1/5/2022  تحتسب اشهر الاستحقاق باثر رجعي من الشهر الاول لغاية الرابع (اربعة اشهر)

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

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

ملاحظة: يكون الحساب للاشهر فقط وليس سنوات مهما كان عددها  12 او 15 وهكذا

حساب عدد الاشهر.accdb

تم تعديل نوفمبر 8, 2022 بواسطه Ahmed_J

[husamwahab]

بالخدمة استاذ احمد

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

Me.tmonth = DateDiff("m", Me.Date1, Me.date2)

 

[Ahmed_J]

تسلم ياوردة

ربي يحفظك من كل مكروه

[husamwahab]

وانت السالم استاذي العزيز وبالخدمة

ملاحظة : يمكن اختصار كود احتساب الفرق باليوم والشهر بالكود ادناه

  If Day(Me.date2) >= Day(Me.Date1) Then
    Me.tdate = Day(Me.date2) - Day(Me.Date1)
    Me.tmonth = DateDiff("m", Me.Date1, Me.date2)
  Else
    Me.tdate = Day(Me.date2) - Day(Me.Date1) + 30
    Me.tmonth = DateDiff("m", Me.Date1, Me.date2) - 1
  End If

 

[Ahmed_J]

السلام عليكم استاذ @husamwahab

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

فقط ملاحظة عن الكود الاخير 

18 ساعات مضت, husamwahab said:

 If Day(Me.date2) >= Day(Me.Date1) Then
    Me.tdate = Day(Me.date2) - Day(Me.Date1)
    Me.tmonth = DateDiff("m", Me.Date1, Me.date2)
  Else
    Me.tdate = Day(Me.date2) - Day(Me.Date1) + 30
    Me.tmonth = DateDiff("m", Me.Date1, Me.date2) - 1
  End If

 

لون ان مدخل البيانات اخطا وادخل (start date) اكبر من (end date)  يظهر خطا بالكود

المفروض تظهر رسالة ولايسمح بالاحتساب

تحياتي لك استاذ