تعديل معادلة حسابية الى الافضل

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

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

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

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

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

انظر الي هذه المشاركة 

 

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

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

هذا الكود يعمل تماما على المثال السابق ذكره 

ولكن أعتقد أنه يمكن تحسينه للأفضل فى Function واحدة وليس على ثلاثة ولعل احد اخوانا او اساتذتنا يمكنه ذلك

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

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

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

للتذكرة

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

ممكن مساعدة أستذى @أ / محمد صالح

 

[ابو جودي]

طبعا ممكن فانك واحدة بس  ابشر

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

أستاذى @ابو جودي

على فكرة الدالة فى المشاركة الاولى مش مظبوط 
 

[ابو جودي]

في 5‏/5‏/2022 at 12:29, محمد احمد لطفى said:

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

3 - الشريحة الثالثة مابين 1-10-2020 حتى 1-1-2050 يتم الحساب بينها بالشهر

ممكن سؤال 

ليه انت عاملت دول انهم شريحتين ؟

ليه ما قلت من 7-9-2016 حتى 1-1-2050 الحساب بالشهر ؟

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

ليها علاقة بالضريبة على القيمة المضافة 

 

2 - الشريحة الثانية ما بين تاريخ 7-9-2016 حتى 30-9-2020 يتم الحساب بينها بالشهر ( ليها شهرين سماح لتقديم الاقرار )
 

3 - الشريحة الثالثة مابين 1-10-2020 حتى 1-1-2050 يتم الحساب بينها بالشهر ( ليها شهر واحد سماح لتقديم الاقرار )

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

[ابو جودي]

ID	date1	date2	weekx	month1	month2
1305	2015/01/01	2021/01/10	88	48	3

طيب ممكن افهم دى 

 

 

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

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

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

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

ده المطلوب 
من 1-1-2015 حتى 6-9-2016              88 أسبوع
من 7-9-2016 حتى 30-9-2020   48 شهر 
من 1-10-2020 حتى 10-1-2021   3 أشهر 

1-1-2015            88 اسبوع     48    شهر     3 اشهر 

الويندوذ عندى 11 لو عاوز تجرب حاجة مفيش مشكلى يأ أستاذى العزيز 😇

[ابو جودي]

لان نظريا من شرحك فى رأس الموضوع تعارض اخر شريحتان

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

معنى كده ان لو تاريخ البداية فى شريحة والنهاية فى شريخة أخرى انت تريد الناتج لكل شريحة ما بين التاريخين ؟

وانت ذكرت ان فى شئ خطأ فى الناتج 

بص 

موضوع بالطريقة دى لازم الشرح النظرى الكافى والوافى  ووضع الامصلة بجميع الاطروحات التى قد نصادفها ووضع النتائج الصحيحة بالشكل النظرى 

وذلك ختى تتضح الرؤية اولا  ثم بعد ذلك يأتى دور التفكير والتحليل ووضع التصورات المختلفة للحصول على النتائج الصحيحة ثم البناء اما بالاكواد او الاستعلامات

1-1-2015            88 اسبوع     48    شهر     3 اشهر 

طيب انت مدرك ان بالشكل ده لو فانكشن واحد لن يكون قادرا على اظهار 3 نتائج فى خلية واحدة ؟؟؟؟؟

 

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

أستاذى 
 

اقتباس

 

أخر مشاركة صحيحه 

بس أعتقد أن ممكن تتعمل أسهل من كده

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

[ابو جودي]

ام انك تريد ان تريد استدعاء الفانك فى 3 خلايا بشكل يدوى وبناء عليه يقدم لك الحل ؟؟؟؟؟

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

الاسبوع خلية والشهر نقول شهر 1 خليه و شهر 2 خلية

[ابو جودي]

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

checkDate(sdate,edate,1)
checkDate(sdate,edate,2)
checkDate(sdate,edate,3)

 

السؤال المنطقى ما السهولة والناتج الذى يعود عليك من ذلك ؟!

 

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

تمام 

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

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

كهرباء 2019.rar

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

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

للرفع

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

الهدف من هذا الموضوع أن أعرف كيف أتعامل مع البرنامج فى حالة زيادة فترات 

طب ممكن نبدأ

1 - من 1-1-1990 حتى 1-1-2050 على التقسيم التالى 

أولا من 1-1-1990 حتى 6-9-2016   يكون الحساب بالاسبوع ( الفترة الاولى )

ثانيا من 1-1-1990 حتى 30-9-2020 يكون الحساب بالشهر  ( الفترة الثانية )

حيث   date1 حتى 6-9-2016  يكون الحساب بالاسبوع و من 1-7-2016 حتى Date2 يكون الحساب بالشهر 

ثالثا من 1-1-1990 حتى 1-1-2050 ( الفترة الثالثة )

حيث   date1 حتى 6-9-2016  يكون الحساب بالاسبوع و من 1-7-2016 حتى 30-9-2020 يكون الحساب بالشهر  و من 1-10-2020 حتى Date2 يكون الحساب بالشهر 

 

بالتوفيق 
 

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

للرفع

[ابوخليل]

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

من خلال الاطلاع على التواريخ ودراستها ،، لعلنا ان نصل الى حل مرضي .. وحط تحت لعلنا خط

 

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

شكراً أستاذى @ابوخليل

ملف finish يعمل و لكن به تداخل فى الفترات مثل الصورة المرفقة 

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

و المطلوب  

 

نريد حساب عدد الاسابيع و الشهور بينهما ولكن بشروط .

أولا من تاريخ 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 يتم الحساب بينها بالشهر

كالتالى

 

1 - من 1-1-1990 حتى 1-1-2050 على التقسيم التالى 

أولا من 1-1-1990 حتى 6-9-2016   يكون الحساب بالاسبوع ( الفترة الاولى )

ثانيا من 1-1-1990 حتى 30-9-2020 يكون الحساب ( الفترة الثانية )

حيث   date1 حتى 6-9-2016  يكون الحساب بالاسبوع و من 1-7-2016 حتى Date2 يكون الحساب بالشهر 

ثالثا من 1-1-1990 حتى 1-1-2050 ( الفترة الثالثة )

حيث   date1 حتى 6-9-2016  يكون الحساب بالاسبوع و من 1-7-2016 حتى 30-9-2020 يكون الحساب بالشهر  و من 1-10-2020 حتى Date2 يكون الحساب بالشهر 

وجزاكم الله كل خير

 

finish .mdb كهرباء 2019.rar

[ابوخليل]

انا قلت لعلنا .. لان لا جديد في ردك .. فاعتذر 

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