الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما

[ابو هاله النبلسي]

@Ahmed_J لقد كان لك تجربه في نفس الموضوع 

[ابوخليل]

في 24‏/3‏/2023 at 00:36, AbuuAhmed said:

ولكنك لم توفي بوعدك (قبولك لشرطي) ، هذه أول ليلة في رمضان ضاعت سدى.
صورة مع التحية لـ @ابوخليل

اختلف برنامجي في رمضان واحتاج الى ايام لتنظيم  الوقت المتاح للمنتدى ، ولكن شدني النداء

نعم انت نبهته ان هو اراد الناتج مع الكسور ووافق .. ورأيت التعديل ..

كتب الله اجرك ابا احمد ، هو رأى نتيجة المهندس قاسم بلا كسور فكانت اقرب الى نفسه

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

سأكون وسيط خير  بينكم لعلي افوز بافضل اجابة  ... دمجت الفكرتين وبفضل الله خرجت بهذا الكود

آمل الاطلاع من الجميع والتقييم

Function GetMonths30(Date1 As Date, Date2 As Date) As Long
Dim d1, m1, d2, m2 As String
Dim y1, y2 As Integer
Dim sum_d, sum_m, sum_y, sum_days As Integer
Dim tst1, tst2 As Long
d1 = Format(Day(Date1), "00"): d2 = Format(Day(Date2), "00")
m1 = Format(Month(Date1), "00"): m2 = Format(Month(Date2), "00")
y1 = Year(Date1): y2 = Year(Date2)
tst1 = y1 & m1 & d1: tst2 = y2 & m2 & d2
If tst2 < tst1 Then Exit Function
sum_d = Abs(Int(d2) - Int(d1))
sum_m = Abs(Int(m2) - Int(m1)) * 30
sum_y = (y2 - y1) * 360
sum_days = sum_y + Abs(sum_m - sum_d)
GetMonths30 = sum_days
End Function

 

 

months30.accdb

[Eng.Qassim]

ولمن اراد الفائدة ..ملف استاذ ابو خليل ..مع استعلام بسيط ويظهر نفس النتائج

DateDiff("m", date1, date2) * 30 + (Day(date2) - Day(date1))

 

months30.rar

[AbuuAhmed]

المقارنة بعد إضافة حسابات أبو خليل.
المقارنة فيها مدد شهرية لمدة سنة ومجموعها وكذلك حساب السنة بدون الشهور.  كذلك بعض التواريخ المختارة.
لم أعدل على معادلاتي.
لم يكن اعتراضي للحصول على "أفضل إجابة" وإلا "أيش خلينا للأطفال" ولا داعي لتكرار السبب.
المحاسبة لا بد لها من رياضيات وخصوصا الرياضيات المالية ومن أهم ما تركز عليه الرياضيات المالية حساب المدد.
كثير من الظلم يقع على الموظفين بسبب أخطاء المحاسبين ونادر من يستطع العثور على أخطائهم.
سامحوني ، آخر مشاركة لي في هذا الموضوع.
موفقون جميعا.
 

Data360_02.xlsm

[ابوخليل]

5 ساعات مضت, Eng.Qassim said:

ولمن اراد الفائدة ..ملف استاذ ابو خليل ..مع استعلام بسيط ويظهر نفس النتائج

 

ايش هذا  !!!  كنت اظن اني جايب الذيب من ذيله .. راحت عليك يابوخليل 

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

فيما يخصني داخل المثال 

قمت باستبدال الكود  باجابتي السابقة الى السطر الذي تفضلت به ,, ووضعت قبله احتراز عدم ظهور النتيجة بالسالب

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

2 ساعات مضت, AbuuAhmed said:

لم يكن اعتراضي للحصول على "أفضل إجابة" وإلا "أيش خلينا للأطفال" ولا داعي لتكرار السبب.

لم اقل هذا وانما نسبته لصاحب الموضوع .

2 ساعات مضت, AbuuAhmed said:

المحاسبة لا بد لها من رياضيات وخصوصا الرياضيات المالية ومن أهم ما تركز عليه الرياضيات المالية حساب المدد.
كثير من الظلم يقع على الموظفين بسبب أخطاء المحاسبين ونادر من يستطع العثور على أخطائهم.

اهل مكة ادرى بشعابها .. وما قصرت يابو احمد .. كتب الله اجرك

months30Up.rar

[ابو هاله النبلسي]

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

[AbuuAhmed]

أبو خليل وقاسم عاملين ثنائي واحد يرفع والثاني يكبس

لما نريد نحدد فترة يناير مثلا سنقول من 01/01 إلى 31/01 ويفترض أن تكون مدته عمليا 31 يوم 
ولو حسبنا من 01/01 إلى 01/01 يفترض أن تكون المدة يوم واحد

الرجل طلب كل الشهور 30 يوم للشهور التامة والناقصة.
أولا عملكما في كل الحسبات ينقص يوم من المدة وثانيا هو يعالج الشهور التامة ولا يعالج الشهور الناقصة.
فهل يعقل أن شهر فبراير تكون نتائجه حتى يوم 27 بحساب الأيام الفعلية وبمجرد أن يكون في اليوم الثامن والعشرين يقفز إلى الثلاثين؟!!
وكذلك نفس الشيء لشهر يناير أن تكون نتائجه حتى يوم 30 بحساب الأيام الفعلية وبمجرد أن يكون في اليوم الحادي والثلاثين يرجع للخلف يوما؟!!

شغلكما ولو أرضى السائل "هشك بشك" و "الجمهور عاوز كده" ، لم أود أن أصل إلى أن أوصف عملكما ولكن يبدو أنكما تتعمدان سحبي لهذه النقطة.
الغريبة واحد منكم محاسب والثالني مهندس وهذا شأنكما!

ثم يا أبو خيل مرفقي حتى كتابة هذه المشاركة لم تنزله لتطلع على المقارنات!! حاول تكن جديا في البحث عن الصحيح.
أنا قلت لن أعود للموضوع ولكن الآن أن مستعد للطحن معكما للآخر ، فتفضلا.
يا الله ، توكلت على الله.

تم تعديل مارس 25, 2023 بواسطه AbuuAhmed

[Eng.Qassim]

1 ساعه مضت, AbuuAhmed said:

كثير من الظلم يقع على الموظفين بسبب أخطاء المحاسبين

كلامك صحيح اخي ابو احمد ..منذ اكثر من 10 سنوات وانا احاول تصحيح الخطأ الذي وقع به الاداريين معي (وليس المحاسبين) وضاعت علي سنتان من خدمتي

 

منذ ساعه, ابوخليل said:

يش هذا  !!!  كنت اظن اني جايب الذيب من ذيله .. راحت عليك يابوخليل

انت الخير والبركة استاذنا ابو خليل

[ابوخليل]

12 دقائق مضت, AbuuAhmed said:

أبو خليل وقاسم عاملين ثنائي واحد يرفع والثاني يكبس
 

هههههههههه .. اضحك الله سنك

12 دقائق مضت, AbuuAhmed said:

ثم يا أبو خيل مرفقي حتى كتابة هذه المشاركة لم تنزله لتطلع على المقارنات!! حاول تكن جديا في البحث عن الصحيح.
 

صدقت .. والسبب انه اذهلني السطر الذي تفضل به اخونا قاسم

رجعت له الآن ويا للهول فيما يخص عملي

15 دقائق مضت, AbuuAhmed said:

أنا قلت لن أعود للموضوع ولكن الآن أن مستعد للطحن معكما للآخر ، فتفضلا.
يا الله ، توكلت على الله.

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

[ابوخليل]

الخلاصة :

وحتى يغلق الموضوع وينتهي النزاع :

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

فصاحب الحاجة هو ادرى بحاجته

ان اراد العدل والدقة محاسبيا للمستحقات سيختار ما تفضل به الاستاذ ابواحمد .

وان اراد اعدادا صحيحة لتوظيفها في حسابات وعمليات اخرى سيختار ما تفضل به الاستاذ قاسم .

أسأل الله الكريم  ان يغفر لنا ولكم .