فصل الفرق بين تاريخين إلى سنوات، وشهور وأيام

[capitala]

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

إخواني الكرام، عندي تاريخين (تاريخ البدء) و(تاريخ الاتتهاء) 

كيف يمكن فصل الفرق بين التاريخين إلى عدد سوات، وشهور وأيام

مثال: إذا كان التاريخ الأول 1/1/2021 والتاريخ الثاني 24/3/2022

المطلوب: فصل الفرق بين التاريخين ليكون مثلا: 1 سنة، و2 شهر، و25 يوم

مع الشكر مقدما لحضراتكم.

 

[Eng.Qassim]

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

انظر للمرفق اخي العزيز

 

فرق التاريخ.accdb

[capitala]

أخي @Eng.Qassim المحترم

الدالة رائعة ولكنها لم تراعي تباين عدد أيام الشهر. فمثلا: الفترة من 1 فبراير 2021 إلى 28 فبراير 2021 هي في الحقيقة وحسب التقويم الميلادي شهر كامل وليست 28 يوم.

وأرجو من حضرتك خدمة أخيرة لو تكرمت، هل هناك إمكانية أن توافيني بكود أو Query يقوم بتحويل الفترة بين D1 و D2 إلى فترات بمعنى: 

إذا كان D1 هو 5 يناير 2021 و D2 هو 20 أبريل 2022. كيف نقوم بتقسيمها إلى فترات بحيث تبدأ الفترة الأولى من D1 (5 يناير في هذا المثال) وتنتهي بعد شهر (4 فبراير في هذا المثال)، وهكذا حتى نصل إلى آخر فترة، سيكون هناك أيام أقل من الشهر (الفترة من 5 أبريل إلى 20 أبريل) في آخر سجل؟

مع الشكر والاحترام والتقدير لجهودكم

[Eng.Qassim]

اسف على التاخير سيدي الكريم فقد كنت في العمل

عملت لك هذا البرنامج على عجالة وقد اضفت شهر على كل فترة ربما تظهر لك اخطاء لاني عملت على الفكرة فقط

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

تحياتي لك

 

فترات.accdb

تم تعديل نوفمبر 3, 2021 بواسطه Eng.Qassim

[Eng.Qassim]

17 ساعات مضت, capitala said:

من D1 (5 يناير في هذا المثال) وتنتهي بعد شهر (4 فبراير في هذا المثال)

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

Private Sub Command13_Click()
Dim i As Integer
Dim j As Integer

For i = 0 To Forms![Form2]![txtM]
    j = 30 * i
    Me.Date3 = DateAdd("d", j, Forms![Form2]![Date1])
    DoCmd.GoToRecord , , acNext
 Next
 DoCmd.Requery
End Sub

 

[jjafferr]

السلام عليكم 🙂

 

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

الفترة من 1 فبراير 2021 إلى 28 فبراير 2021 هي في الحقيقة وحسب التقويم الميلادي شهر كامل وليست 28 يوم

 

لا وانت الصادق ، من 1-2-2021 الى 1-3-2021 يعتبر شهر 🙂

لأن يوم 28-2-2021 بعد منتصف الليل يكتمل اليوم ، وهذا معناه ان اليوم اصبح 1-3-2021 🙂

 

جعفر

 

[capitala]

شكرا أيها الفائق الاحترام. 

جزاكم الله كل خير وأكرمكم بعظيم كرمه وزادكم من علمه