حساب عدد الاسابيع و عدد الاشهر من خلال وحدة نمطية

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

تمام هو المطلوب  باقى أن يكون فى صف واحد

 

هما تلات فترات كل واحده تتحسب لوحدها 

1 -   من تاريخ 1-1-1990 حتى 6-9-2016 حسابها اسبوعى

2 -   من تاريخ 7-9-2016 حتى 30-9-2020 تحسب بالشهر

3 -  من تاريخ 1-10-2020 الى تاريخ اليوم تحسب بالشهر كما الصورة بالاعلى 

وبداية التاريخ و نهايته من خلال date1 و date2

 

تم تعديل أبريل 25, 2022 بواسطه محمد احمد لطفى

[أبوبسمله]

  في 25‏/4‏/2022 at 21:59, محمد احمد لطفى said:

تمام هو المطلوب

Expand  

الحمدلله الذى بنعمته تتم الصالحات ولكن هل نظرت لاخر شرط بعد التعديل السابق انه بقى 19 شهر مش 18

  في 25‏/4‏/2022 at 21:59, محمد احمد لطفى said:

باقى أن يكون فى صف واحد

Expand  

كيف هذا وعلى اساس سيكونوا فى صف واحد ؟

  في 25‏/4‏/2022 at 21:59, محمد احمد لطفى said:

هما تلات فترات كل واحده تتحسب لوحدها 

Expand  

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

بالتوفيق

[أبوبسمله]

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

  في 24‏/4‏/2022 at 20:57, محمد احمد لطفى said:

شكراً أستاذى هذا ليس لحساب العمر

الحساب على 3 شرايح

الشريحة الاولى الفترة  ما بين تاريخ 1-1-1990 حتى 6-9-2016 يتم الحساب بينها بالاسبوع فى عمود الاسبوع

الشريحة الثانية ما بين من تاريخ 7-9-2016 حتى 30-9-2020 يتم الحساب بينها بالشهر فى عمود الشهر

الشريحة الثالثة مابين 1-10-2020 حتى تاريخ date2

-------------------------------------------------------------------------------------------------------------------------------------------------

لو date1 = 1-1-2016 

و date2 = 24/4/2022

1 -   اضافة عمود الاسبوع يحسب عدد الاسابيع من تاريخ 1-1-1990 حتى 6-9-2016

سوف يحسب من 1-1-2016 حتى 6-9-2016

1 - عمود الاسبوع = 36 أسبوع

2 - اضافة عمود شهر يحسب عدد الاشهر  من تاريخ 7-9-2016 حتى 30-9-2020

سوف يحسب من 7-9-2016 حتى 30-9-2020

2-عمود الشهر = 49 شهر 

3 -  اضافة عمود شهر 2 يحسب عدد الاشهر  أكبر من يوم 30-9-2020

سوف يحسب من 1-10-2020 حتى 24-4-2022
3 - عمود شهر 2 = 18 شهر

----------------------------------------------------------------------------------------------------------------------------------

لو date1 = 15-5-2015 

و date2 = 15-2-2016

1 -   اضافة عمود الاسبوع يحسب عدد الاسابيع من تاريخ 1-1-1990 حتى 6-9-2016

سوف يحسب من 15-5-2015 حتى 15-2-2016

1 - عمود الاسبوع = 40 أسبوع

2 - اضافة عمود شهر يحسب عدد الاشهر  من تاريخ 7-9-2016 حتى 30-9-2020

2-عمود الشهر = 0 شهر 

3 -  اضافة عمود شهر 2 يحسب عدد الاشهر  أكبر من يوم 30-9-2020
3 - عمود شهر 2 = 0 شهر

-------------------------------------------------------------------------------------------------------------------------------------------------

لو date1 = 1-1-2017 

و date2 = 24/4/2022

1 -   اضافة عمود الاسبوع يحسب عدد الاسابيع من تاريخ 1-1-1990 حتى 6-9-2016

1 - عمود الاسبوع = 0 أسبوع

2 - اضافة عمود شهر يحسب عدد الاشهر  من تاريخ 1-1-2017 حتى 30-9-2020

سوف يحسب من 1-1-2017 حتى 30-9-2020

2-عمود الشهر = 44 شهر 

3 -  اضافة عمود شهر 2 يحسب عدد الاشهر  أكبر من يوم 30-9-2020

سوف يحسب من 1-10-2020 حتى 24-4-2022
3 - عمود شهر 2 = 18 شهر

 

Expand  

وكما قلت لك

  في 25‏/4‏/2022 at 21:14, احمد الفلاحجي said:

  ايه وجه العلاقه انت بتشيك على تاريخ وبتحسب على تاريخ

Expand  

فيجب الرجوع لاول حاجه قمت لك بها والا الامر يحتاج توضيح اكثر بارك الله فيك لانه ردك الاخير تشتييت للامور كلها بجانب كيف تريدها بصف واحد وعلى اى اساس

ثم ان ناتج المرفقه بالصوره الاخيره لك 88 غير صحيح والصحيح 352

DateDiff("ww", #1/1/2015#, #10/1/2021#)

بصراحه الامور اتلخبطت معايا واعذرنى لقله فهمى

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

بالتوفيق اخى محمد

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

عند حساب 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

تم تعديل أبريل 26, 2022 بواسطه محمد احمد لطفى

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

الموضوع ده كانت محسوبة فى استعلام 

  اقتباس

 

Expand  

لكى تصل الفكرة 

159.mdbFetching info...

 

تم تعديل أبريل 26, 2022 بواسطه محمد احمد لطفى

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

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

[أبوبسمله]

  في 27‏/4‏/2022 at 01:21, محمد احمد لطفى said:

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

Expand  

اهلا اخى محمد

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

وان شاء الله احاول ان اقوم بتحويله للوحده النمطيه وذلك ان لم يسبقنى احد اخوانى واساتذتى جزاهم الله عنا كل خير

بالتوفيق

[أبوبسمله]

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

هذا المثال بالتواريخ الجديده للموضوع الحالى وبه المعادلات بالمثال الاخر بالموضوع القديم لاخى واستاذى محمد جزاه الله خيرا

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

weekx3: IIf([DATE2]<=#30/08/2016#;DateDiff("w";[DATE1];[DATE2]);IIf([DATE1]<=#30/08/2016#;DateDiff("w";[DATE1];#30/08/2016#);0))

Monthx3: IIf([DATE2]<=#30/08/2016#;0;IIf([DATE1]>=#01/09/2016#;DateDiff("m";[DATE1];[DATE2]);DateDiff("m";#01/09/2016#;[DATE2])))

بالتوفيق

ضريبة _4.mdbFetching info...

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

شكرا معلمى @احمد الفلاحجي

أريد أن انوه انها ليست مظبوطة 100 % بها أخطاء

ضريبة _4.mdbFetching info...

[أبو عبدالله الحلوانى]

مشاركة مع أخي وأستاذي @احمد الفلاحجي جزاه الله خيرا 

جرب هذا المرفق ووافنا بالنتائج

شرح الدالة داخلها

 

Database1.rarFetching info...

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

شكرأ أستاذى @أبو عبدالله الحلوانى

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

 

وهل يمكن استخدامها فى الاستعلام  هكذا

تم تعديل أبريل 28, 2022 بواسطه محمد احمد لطفى

[أبو عبدالله الحلوانى]

  في 28‏/4‏/2022 at 17:16, محمد احمد لطفى said:

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

Expand  

جرب هذا التعديل ووافنا بالنتائج

تم اضافة البيانات الي الجدول ومن ثم الي الاستعلام

 

Database1.rarFetching info...

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

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

[أبوبسمله]

اهلا بك اخى واستاذى العزيز @أبو عبدالله الحلوانى وجزاك الله خيرا على مشاركتك معنا 🌹 للاجابه على اخى محمد

سوف اطلع ع مثالك والتعديلات لاتعلم منها اخى العزيز بارك الله فيك

بالنسبه لاخى محمد @محمد احمد لطفى

  في 27‏/4‏/2022 at 19:52, محمد احمد لطفى said:

أريد أن انوه انها ليست مظبوطة 100 % بها أخطاء

Expand  

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

سوف اطلع معك ع تعديلات اخى ومعلمى العزيز ابوعبدالله جزاه الله عنا كل خير

بالتوفيق اخوانى

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

للتذكرة 

لدينا تاريخين فى الاستعلام 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

ثانيا عن طريق وحدة نمطية

و هناك حلان 

أ - حل الاستاذ احمد الفلاحجى ولكنه كل شريحه فى سطر وأنا اريد الحل فى سطر واحد

 

ب - حل الاستاذ أبو عبدالله الحلوانى ولكنه عن طريق نموذج وليس استعلام

 

كل سنه وانتم طيبون وبخير  وصحة وسعادة تقبل الله منا ومنكم صالح الأعمال
 

 

احمد الفلاحجى.mdbFetching info... أبو عبدالله الحلوانى.accdbFetching info...

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

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

[أبوبسمله]

السلام عليكم

اخى محمد @محمد احمد لطفى كل عام وانت طيب عيدك مبارك ولا يكون خاطرك الا طيب

قمت بالتعديل على الوحده النمطيه لاخى ومعلمى العزيز @أبو عبدالله الحلوانى جزاه الله خيرا وبعد اذنه طبعا ليتناسب معك كما تريد وهو ان تكون النتائج بالاستعلام

ولكن وجدت اختلاف واحد فالنتائج فالتواريخ التاليه مابين الجدول والاستعلام وذلك فى معادله الشهر

Table1

FromDate1	ToDate2	Weeks	Month1	Month2	Descrp
01/10/2020	10/01/2021	0	0	3	عدد الشرائح 1

qry

FromDate1	ToDate2	qw	qm	qm1
01/10/2020	10/01/2021	0	-1	3

ولا اعلم اين المشكله حاليا لعل اخى واستاذى العزيز محمد الحلوانى يطلع عليها ويفيدك

تقبلوا تحياتى ومرورى وكل عام وانتم بخير عيدكم مبارك

Database2.accdbFetching info...

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

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

لى زميل عمل على مثالك أستاذ أحمد و لكن به خطأ فى شهر 9-2016

finish (1).mdbFetching info...

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير والشكر موصول لاخى واستاذى محمد الحلوانى

طيب وضحلى الخطا فين وطريقه الحساب والنواتج الصحيحه وسوف اقوم بالمراجعه بالمساء ان شاء الله بعد الانتهاء من بعض الاعمال

بالتوفيق

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

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

و المفروض من 7-9-2016 الى 30-9-2016 يحسب شهر و لا أنا غلطان

[أبوبسمله]

  في 3‏/5‏/2022 at 20:09, محمد احمد لطفى said:

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

و المفروض من 7-9-2016 الى 30-9-2016 يحسب شهر و لا أنا غلطان

Expand  

بالتاكيد غلطان اخى محمد 🙂 لانها صفر

?DateDiff("m"; #9-7-2016#;#9-30-2016#)

جرب المعادله السابقه فى استعلام وشوف هيعطيك 1 ولا 0

بالتوفيق اخى

[أبو عبدالله الحلوانى]

  في 3‏/5‏/2022 at 22:24, احمد الفلاحجي said:

بالتاكيد غلطان اخى محمد 🙂 لانها صفر

Expand  

وانا كذلك اوافق اخي واستاذي @احمد الفلاحجي 

الفرق بين 7-9 الي 30-9 سيتم حسابه بالشهور بالتأكيد ولكن تلك الفترة لم تكتمل 30 يوم لذلك لم يتم حسابها شهرا كاملا حسب المعادلة وحسب العرف  فالفترة عبارة عن 23 يوم فقط جرب زيادة 7 ايام لشهر 10 وستجد ان الناتج اصبح 88 اسبوع و 1 شهر.

  في 28‏/4‏/2022 at 20:49, محمد احمد لطفى said:

بس ياريت تشتغل فى الاستعلام على طول

Expand  

جرب هذا المرفق قمت بالتعديل علي الدالة واصبحت الآن تعمل داخل الاستعلام بدون وسيط

وابقيت علي الدالة القديمة لتري الفرق جرب ووافنا بالنتائج

 

Database1.rarFetching info...