AbuuAhmed

أخي أبو طلال، البيانات غير "نظيفة"، جدول في 2022 والآخر في 2023 كما أني لم أفهم جدول Siebel ، ماذا يعني هذا الجدول وما يعني عنوان هذا الحقل CRM؟ وأنصحك أن يكون تركيبة جدول العطلات عبارة عن حقلين بداية العطلة ونهاية العطلة إلا إذا كانت العطل كلها عبارة عن يوم واحد فتركيبة الجدول في حلي السابق أفضل. هل ممكن أن ترفع ملف الإكسل ليسهل فهم المطلوب بدون أن تقحم أفكارك في الحل، فالحلول دعها علي.

جرب بعد فهمي لجدول العطل والتي هي عبارة عن يوم واحد لكل سجل. WM2000_02.mdb

ربما الاسم الصحيح لهذا الشريط هو "شريط التقدم".

جرب الاستعلام في هذا المرفق. مع العلم أني لم أفهم تركيبة جدول العطل لاعتمده في حساباتي. WM2000_01.mdb

مثال آخر:

من الخطأ أن يكون نوع حقل الترقيم نصي يجب أن يكون رقمي ويفضل أن يكون من نوع Long Integer على العموم استخدام هذا السطر بعد تعديل طفيف عليه: Me.sMembership_No = Nz(DMax("Val([sMembership_No])", "tbl_name_swimmer"), 6000) + 1 وتأكد من توسيع طول الحقل إذا أردت الإستمرار بنوع نصي.

ممكن توضح أكثر طال عمرك.

ويمكنك أيضا استخدام عملية الجمع العادية بشرط تحويل الدقائق إلى أيام Private Sub CMPO1_AfterUpdate() Me.txtAA = Me.txtA + Me.CMPO1 / 1440 '/60/24 End Sub

يمكنك استخدام دالة myMod بدلا من استخدام دالة IIf لفحص المدخلات. Function myMod(Number As Double, Divisor As Double) As Double If Divisor <> 0 Then myMod = Number - Divisor * Int(Number / Divisor) End If End Function Sub Test() Dim Time1 As Date Dim Time2 As Date Time1 = TimeSerial(23, 0, 0) Time2 = TimeSerial(7, 0, 0) Debug.Print myMod((Time2 - Time1) * 24, 24) End Sub

مثال يساعدك على الحساب VAT_Calculator_01.accdb

طريقة أخرى لحساب مجموع الإجازات في استعلام qryVacations الحساب باستخدام دالة GetYears ضمن موديول modGetYears الدالة تراعي السنوات البسيطة والسنوات الكبيسة. الاجازة_05.accdb

سبقوني 🙂 : =LEFT(A2,LEN(A2)-2)

اطلع على هذا الموضوع:

المثالين بهما نفس التقارير 1 - موضوع الأستاذ جعفر: 2 - مضوعي:

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

حل ممتاز وربما معظمنا لم يمر عليه هذا الحل من قبل. ماذا لو استخدمت خاصية إخفاء المكررات Hide duplicates؟ هل هناك فكرة مشابهة لإظهار الإطارات بنفس الإرتفاع كذلك. عموما حلك لمشكلة المقاس لوحدها موضوع مستقل وكان مطلوبا بإلحاح. شكرا لكم.

هذه دالة من أبي هادي: Function CountWkDay(ByVal Date1 As Date, _ ByVal Date2 As Date, _ WkDay As Byte) As Long 'WeekDay Counter Date1 = Date1 - 1 Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWkDay = Date2 - Date1 End Function وهذه طريقة استخدامها: = CountWkDay(K6, K7, 6) + CountWkDay(K6, K7, 7) جربوا المثال: صرف بدل ايام العطلات الرسمية الجمعة والسبت_02.xlsm

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

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

مقارنة Data360_01.xlsm

كما أرجو ملاحظة أن السائل عدل المشاركة التي فيها "الموافقة" على شرطي دون أي ملاحظات منه.

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

استغفر الله العظيم DD129_01.accdb

جرب هذا الكود: Option Compare Database Option Explicit Function GetDays360(DateFm As Date, DateTo As Date) As Double Dim Part1 As Double, Part2 As Double, Part3 As Double Dim mmDays As Byte, FullMonths As Integer Dim Date1 As Date, Date2 As Date If DateTo - DateFm < 0 Then Exit Function Date1 = DateSerial(Year(DateFm), Month(DateFm) + 1, 1) Date2 = DateSerial(Year(DateTo), Month(DateTo) + 0, 0) FullMonths = DateDiff("m", Date1 - 1, Date2) mmDays = Day(DateSerial(Year(DateFm), Month(DateFm) + 1, 0)) If FullMonths < 0 Then Part1 = (DateTo - DateFm + 1) / mmDays * 30 Else Part1 = (Date1 - DateFm + 0) / mmDays * 30 Part2 = FullMonths * 30 mmDays = Day(DateSerial(Year(DateTo), Month(DateTo) + 1, 0)) Part3 = (DateTo - Date2 + 0) / mmDays * 30 End If GetDays360 = Part1 + Part2 + Part3 End Function Sub Test() Dim Date1 As Date, Date2 As Date Date1 = DateSerial(2023, 1, 1) Date2 = DateSerial(2023, 12, 31) MsgBox GetDays360(Date1, Date2) End Sub على راسي @ابوخليل

هل أشتغل لك على مقترحي ، يعني هل أنت موافق ، أنا لا أريد أن يذهب تعبي سدى ، أكد لي موافقتك لو سمحت