AbuuAhmed
الخبراء-
Posts
979 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
16
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو AbuuAhmed
-
حل ممتاز وربما معظمنا لم يمر عليه هذا الحل من قبل. ماذا لو استخدمت خاصية إخفاء المكررات Hide duplicates؟ هل هناك فكرة مشابهة لإظهار الإطارات بنفس الإرتفاع كذلك. عموما حلك لمشكلة المقاس لوحدها موضوع مستقل وكان مطلوبا بإلحاح. شكرا لكم.
-
صرف بدل ايام العطلات الرسمية الجمعة والسبت
AbuuAhmed replied to فوزى فوزى's topic in منتدى الاكسيل Excel
هذه دالة من أبي هادي: 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 -
الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما
AbuuAhmed replied to ابو هاله النبلسي's topic in قسم الأكسيس Access
أبو خليل وقاسم عاملين ثنائي واحد يرفع والثاني يكبس لما نريد نحدد فترة يناير مثلا سنقول من 01/01 إلى 31/01 ويفترض أن تكون مدته عمليا 31 يوم ولو حسبنا من 01/01 إلى 01/01 يفترض أن تكون المدة يوم واحد الرجل طلب كل الشهور 30 يوم للشهور التامة والناقصة. أولا عملكما في كل الحسبات ينقص يوم من المدة وثانيا هو يعالج الشهور التامة ولا يعالج الشهور الناقصة. فهل يعقل أن شهر فبراير تكون نتائجه حتى يوم 27 بحساب الأيام الفعلية وبمجرد أن يكون في اليوم الثامن والعشرين يقفز إلى الثلاثين؟!! وكذلك نفس الشيء لشهر يناير أن تكون نتائجه حتى يوم 30 بحساب الأيام الفعلية وبمجرد أن يكون في اليوم الحادي والثلاثين يرجع للخلف يوما؟!! شغلكما ولو أرضى السائل "هشك بشك" و "الجمهور عاوز كده" ، لم أود أن أصل إلى أن أوصف عملكما ولكن يبدو أنكما تتعمدان سحبي لهذه النقطة. الغريبة واحد منكم محاسب والثالني مهندس وهذا شأنكما! ثم يا أبو خيل مرفقي حتى كتابة هذه المشاركة لم تنزله لتطلع على المقارنات!! حاول تكن جديا في البحث عن الصحيح. أنا قلت لن أعود للموضوع ولكن الآن أن مستعد للطحن معكما للآخر ، فتفضلا. يا الله ، توكلت على الله. -
الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما
AbuuAhmed replied to ابو هاله النبلسي's topic in قسم الأكسيس Access
المقارنة بعد إضافة حسابات أبو خليل. المقارنة فيها مدد شهرية لمدة سنة ومجموعها وكذلك حساب السنة بدون الشهور. كذلك بعض التواريخ المختارة. لم أعدل على معادلاتي. لم يكن اعتراضي للحصول على "أفضل إجابة" وإلا "أيش خلينا للأطفال" ولا داعي لتكرار السبب. المحاسبة لا بد لها من رياضيات وخصوصا الرياضيات المالية ومن أهم ما تركز عليه الرياضيات المالية حساب المدد. كثير من الظلم يقع على الموظفين بسبب أخطاء المحاسبين ونادر من يستطع العثور على أخطائهم. سامحوني ، آخر مشاركة لي في هذا الموضوع. موفقون جميعا. Data360_02.xlsm -
الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما
AbuuAhmed replied to ابو هاله النبلسي's topic in قسم الأكسيس Access
مقارنة Data360_01.xlsm -
الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما
AbuuAhmed replied to ابو هاله النبلسي's topic in قسم الأكسيس Access
كما أرجو ملاحظة أن السائل عدل المشاركة التي فيها "الموافقة" على شرطي دون أي ملاحظات منه. -
الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما
AbuuAhmed replied to ابو هاله النبلسي's topic in قسم الأكسيس Access
ولكنك لم توفي بوعدك (قبولك لشرطي) ، هذه أول ليلة في رمضان ضاعت سدى. صورة مع التحية لـ @ابوخليل -
الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما
AbuuAhmed replied to ابو هاله النبلسي's topic in قسم الأكسيس Access
استغفر الله العظيم DD129_01.accdb -
الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما
AbuuAhmed replied to ابو هاله النبلسي's topic in قسم الأكسيس Access
جرب هذا الكود: 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 على راسي @ابوخليل -
الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما
AbuuAhmed replied to ابو هاله النبلسي's topic in قسم الأكسيس Access
هل أشتغل لك على مقترحي ، يعني هل أنت موافق ، أنا لا أريد أن يذهب تعبي سدى ، أكد لي موافقتك لو سمحت -
الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما
AbuuAhmed replied to ابو هاله النبلسي's topic in قسم الأكسيس Access
طريقة غريبة في الحساب!! ممكن تشرح السبب، هل الحسبة تخص الرواتب؟ ممكن نعمل تحايل ولكن سيكون عدد الأيام عدد عشري يعني به كسور ، فهل هذا يرضيك؟ يعني لو عندنا يومين من شهر فبرير ويومين من شهر مارس ستكون المدة (2/28*30) + (2/31*30) أي الأربعة أيام ستحسبها 4.0783410138 وستضربها في الراتب/30 Days = (2 / 28 * 30) + (2 / 31 * 30) = 4.0783410138 وبافتراض أن الراتب الشهري 1000 NetSalary = 4.0783410138 * (1000 / 30) = 135.94 -
أخي لو أكملت على نسخة 2003 التي رفعتها أنا كان تركت فرصة لأكثر من واحد يحاول معك في حل المشكلة. كذلك لما لا تجعل تعديلك على التقرير وليس النموذج ، أنا الصراحة لم يأتي في بالي أن يحول "نموذج" إلى PDF ، جرب في التقرير أخي.
-
أستاذ @kkhalifa1960 مع أن ما تقوم به ليس له علاقة بفكرة الموضوع فموضوعي فقط هو توسيط جميع المكونات أفقيا مع تكبير أو تصغير النافذة ودون أي تغيير في أبعادها. فقد قمت بتحسين مثالك قبل الأخير وربما التعديل غير ملاحظ فستحتاج إلى فتح المثالين قبل وبعد ثم تقارن. Re-centerBlooming_Flower_04.rar
-
ممتاز ، وأنا سأقوم ببعض الإضافات إن شاء الله لتحسين الشكل بعد التصغير إن سمحت لي.
-
@kkhalifa1960 مر على مثال طلبك وقل رأيك فيه بالإيجاب أو بالسلب.
-
تم تتكملة الكود لجلب كل البيانات. تقويم سنوي 2003_03.mdb
-
فتح التقرير من النموذج ، لم أرغب برفع المثال ، لأترك لك فرصة تطويره لوحدك وحتى لا أتورط في طلبات قادمة 🙂 .. سبق أن نوهت أني مزحوم وربما أكون أكثر حضورا بعد العيد إن شاء الله. المثال: تقويم سنوي 2003_02.mdb
-
جرب هذا الحدث للتقرير Private Sub Report_Load() Dim mm As Byte, dd As Byte With Forms("Tqweem_Sanawi") For mm = 1 To 12 For dd = 1 To 42 Me("M" & mm).Report.Controls("Day" & Format(dd, "00")) = _ .Controls("M" & mm).Form.Controls("Day" & Format(dd, "00")) Next dd Next mm End With End Sub ويمكن إضافة الألوان كذلك بنفس الطريقة
-
إذا ناوي تعملها سأعطيك فكرة بسيط لعملها بجهود بسيطة ، وهي أن تصمم كود خاص بالتقرير يقرأ نتائج النموذج فقط. ولا تحتاج إلى تصميم من جديد في التقرير ، فقط انسخ مكونات النموذج والصقها في التقرير. إذا "مو" ناوي حول لي النسخة إلى 2007 وأنا أعملها.
-
محاولة ولكن بشروط: أن تقوم بضبط عرض صندوق الصورة بما يناسب الصورة تماما. أن تعرف أبعاد الصورة وليس الصندوق ليتم التعامل معها في ضبط الإرتفاع بناء على العرض "نسبة وتناسب" فالصورة عندك أبعادها 500 * 253 وسترى هذه الأرقام في الكود وطريقة التعامل معها. عملت لك كودين في الفرعي وفي الرئيسي. Re-centerBlooming_Flower_02.rar
-
ممتاز في تصوري لو تكون المخرجات في تقرير سيكون منفعتها أكبر
-
أستاذ خليفة، الحقيقة التوسيط قائم، فالمشكلة في التوسيط داخل الكائن نفسه ، وأنا لم أتعامل مع هذه الأشياء من قبل. حاولت بعض الوقت ولم أوفق. تحياتي لكم
-
للأسف أخي لا أمتلك أدوات التسجيل ، والأمر بسيط لا يستدعي وسائل توضيح ، افتح النموذج ثم لتحجيم النافذة أو تكبير عرضها اختر الطرف الأيمن واسحبه لليمين أو اختر الطرف الأيسر واسحبه لليسار. وكذلك تستطيع عكس اتجاه حركة الماوس لتصغير عرض النافذة. ويمكنك أيضا عمل Maximize و Restore للاختبار.
-
حتى يمكن استخدام الكود لكل النماذج دون أن تعديل ودون أن يلتزم بأي اسم من كائنات النموذج تم تبديل هذا السطر: Gap = -Me.slbl2.Left إلى: Gap = -minX المثال بعد التعديل: Re-centerExample_02.accdb