محمد احمد لطفى

للتذكرة

ألف مبروك وإلى الأمام

أنا أستخدم هذا "+20" 0000\ AAA\ AAAA

ممكن مساعدة أستاذى @أبو إبراهيم الغامدي

أستاذى @أبو عبدالله الحلوانى جزالك الله خيراً هذا الكود يعمل تماما على المثال السابق ذكره ولكن أعتقد أنه يمكن تحسينه للأفضل فى Function واحدة وليس على ثلاثة ولعل احد اخوانا او اساتذتنا يمكنه ذلك

يجب ضبط لغة الجهاز الى العربية

السلام عليكم ورحمة الله وبركاته لدينا تاريخين فى الاستعلام date1 و date2 نريد حساب عدد الاسابيع و الشهور بينهما ولكن بشروط . أولا من تاريخ 1-1-1990 حتى مثلا 1-1-2050 تنقسم الى ثلاث شرايح 1 - الشريحة الاولى الفترة ما بين تاريخ 1-1-1990 حتى 6-9-2016 يتم الحساب بينها بالاسبوع 2 - الشريحة الثانية ما بين تاريخ 7-9-2016 حتى 30-9-2020 يتم الحساب بينها بالشهر 3 - الشريحة الثالثة مابين 1-10-2020 حتى 1-1-2050 يتم الحساب بينها بالشهر وتم عمل الكود ويعمل بشكل صحيح ولكن هل يمكن تبسيط المعادلة الى الافضل Option Compare Database '11111111111111111111111111111111111111111111111111111111111111111111111111 الشريحة الأولي Function checkDate1(sDate As Date, eDate As Date) If sDate > #9/6/2016# Then checkDate1 = 0 Else If sDate >= #1/1/1990# And eDate <= #9/6/2016# Then checkDate1 = DateDiff("ww", sDate, eDate) ElseIf sDate >= #1/1/1990# And eDate > #9/6/2016# Then checkDate1 = DateDiff("ww", sDate, #9/6/2016#) End If End If End Function '2222222222222222222222222222222222222222222222222222222222222222 الشريحة الثانية Function checkDate2(sDate As Date, eDate As Date) If sDate >= #9/30/2020# Then checkDate2 = 0 Else If sDate >= #1/1/1990# And eDate > #9/6/2016# Then checkDate2 = DateDiff("m", #9/7/2016#, #9/30/2020#) Else checkDate2 = 0 End If End If End Function '33333333333333333333333333333333333333333333333333333333333333333333333333 الشريحة الثالثة Function checkDate3(sDate As Date, eDate As Date) If sDate >= #1/1/1990# And eDate > #9/30/2020# Then checkDate3 = DateDiff("m", #10/1/2020#, eDate) Else checkDate3 = 0 End If End Function كل سنه وانتم طيبون وبخير وصحة وسعادة finish .mdb

المشكلة فى اخر مثالين شهر 9-2016 بيحسب لحد 6-9-2016 اسبوع و ده تمام و المفروض من 7-9-2016 الى 30-9-2016 يحسب شهر و لا أنا غلطان

تفضل تنازلي و تصاعدي (1).accdb

شكراً @احمد الفلاحجيجزاك الله خيراً و ننتظر أستاذ @أبو عبدالله الحلوانىلحل مشكلة -1 لى زميل عمل على مثالك أستاذ أحمد و لكن به خطأ فى شهر 9-2016 finish (1).mdb

النظر للمشاركة قبل الاخيرة

كل سنة و انتم جميعا طيبين و بخير

مفتاح المعاينة اجعله نعم أو حدث عند الفتح Me.KeyPreview = True

للتذكرة لدينا تاريخين فى الاستعلام date1 و date2 نريد حساب عدد الاسابيع و الشهور بينهما ولكن بشروط . أولا من تاريخ 1-1-1990 حتى مثلا 1-1-2050 تنقسم الى ثلاث شرايح 1 - الشريحة الاولى الفترة ما بين تاريخ 1-1-1990 حتى 6-9-2016 يتم الحساب بينها بالاسبوع فى عمود منفصل يسمى الاسبوع 2 - الشريحة الثانية ما بين تاريخ 7-9-2016 حتى 30-9-2020 يتم الحساب بينها بالشهر فى عمود يسمى الشهر 1 3 - الشريحة الثالثة مابين 1-10-2020 حتى 1-1-2050 يتم الحساب بينها بالشهر فى عمود يسمى الشهر 2 ثانيا عن طريق وحدة نمطية و هناك حلان أ - حل الاستاذ احمد الفلاحجى ولكنه كل شريحه فى سطر وأنا اريد الحل فى سطر واحد ب - حل الاستاذ أبو عبدالله الحلوانى ولكنه عن طريق نموذج وليس استعلام كل سنه وانتم طيبون وبخير وصحة وسعادة تقبل الله منا ومنكم صالح الأعمال احمد الفلاحجى.mdb أبو عبدالله الحلوانى.accdb

شغالة تمام من النموذج بس ياريت تشتغل فى الاستعلام على طول شكرا لحضرتك

شكرأ أستاذى @أبو عبدالله الحلوانى يوجد خطأ عند حساب الشريحة الثالثة يظهر -1 فى الشريحة الثانية وهل يمكن استخدامها فى الاستعلام هكذا

شكرا معلمى @احمد الفلاحجي أريد أن انوه انها ليست مظبوطة 100 % بها أخطاء ضريبة _4.mdb

قراءة اخر مشاركتين

الموضوع ده كانت محسوبة فى استعلام لكى تصل الفكرة 159.mdb

عند حساب 1-1-2015 حتى 10-1-2021 1- من 1-1-2015 حتى 6-9-2016 88 اسبوع 2- من 7-9-2016 حتى 30-9-2020 48 شهر 3- من 1-10-2020 حتى10-1-2021 3 اشهر Function cheekDate(sDate As Date, eDate As Date, x As Byte) If sDate >= #1/1/1990# And eDate <= #9/6/2016# And x = 1 Then cheekDate = DateDiff("ww", sDate, eDate) ElseIf sDate >= #9/7/2016# And eDate <= #9/30/2020# And x = 2 Then cheekDate = DateDiff("m", sDate, eDate) ElseIf sDate >= #9/30/2020# And sDate <= Date And x = 3 Then cheekDate = DateDiff("m", sDate, eDate) End If End Function النتائج تمام و لكن يجب ان يكونو فى سطر واحد عند date1 = 1-1-2015 و date2 = 10-1-2021 تكون 88 اسبوع و 48 شهر و 3 اشهر هما تلات فترات كل واحده تتحسب لوحدها فى عمود لوحدها لان لكل فترة لها حساب خاص بها فى سطر واحد وليس يجب على ان احسب كل فترة فى صف خاص بها ما بين تاريخ 1-1-1990 حتى 6-9-2016 يتم الحساب بينها بالاسبوع فى عمود الاسبوع 1-1-2015 حتى 6/9/2016 فقط 88 اسبوع وليس 1-1-2015 حتى 10-1-2021 352 اسبوع لان حساب الاسابيع يتوقف عند 6-9-2016

تمام هو المطلوب باقى أن يكون فى صف واحد هما تلات فترات كل واحده تتحسب لوحدها 1 - من تاريخ 1-1-1990 حتى 6-9-2016 حسابها اسبوعى 2 - من تاريخ 7-9-2016 حتى 30-9-2020 تحسب بالشهر 3 - من تاريخ 1-10-2020 الى تاريخ اليوم تحسب بالشهر كما الصورة بالاعلى وبداية التاريخ و نهايته من خلال date1 و date2

أول تاريخ 1-1-1990 , تانى تاريخ 6-9-2016 الصح عدد الاسابيع 1392 أسبوع الفترة من تاريخ 1-1-1990 حتى 6-9-2016 يحسب الاسابيع الى بين date1 و date2

تقريبا غاوزين السطر cheekDate = DateDiff("ww", #1/1/2016#, #9/6/2016#) ليه علاقة بـ date1 و date2 بدل التاريخين الى مكتوبين

يبشاير الخير المطلوب يكونو فى سطر واحد مهم.mdb

1- الاسبوع استخدم Week: DateDiff("ww";[date1];[date2]) 36 أسبوع 2 - الشهر استخدم Month: DateDiff("m";[date1];[date2]) 48 شهر