أبو هادي

السلام عليكم شاهد هذا الموضوع : http://www.arabteam2000.com/vb/showthread....&threadid=24581 تحياتي .

السلام عليكم التقويم الهجري القياسي لم يؤسسه مايكروسوفت بل أسسه علماء المسلمين في السنة السابعة للهجرة . وطول السنة الهجرية الوسطية 354 يوما و8 ساعات و48 دقيقة و34 ثانية والشهر الوسطي 29 يوما و12 ساعة و44 دقيقة و 2.87 ثانية ولصحة الحساب وسهولته اصطلحوا السنة ا…

السلام عليكم سأقوم بما أستطيع عمله يوم الجمعة القادم إن شاء الله تعالى . تحياتي .

السلام عليكم مبروك وعقبال الإشراف . تحياتي .

السلام عليكم وأضيف على أخي محمد طاهر حجم الحقل Field Size وأتوقع أن يكون ID عبارة عن رقم مسلسل وكما قال أخي محمد قد وصل القيمة القصوى أو النهائية للحقل مما يضطره الآن إلى زيادة حجم الحقل مثلا لو كان Integer يجب تبديله إلى Longint . تحياتي .

السلام عليكم في حالة الإحتياج للكسر يجب عمل الآتي : 1 - تعديل حقل الرصيد في الجدول من Longint إلى Double . 2 - إزالة دالة Int من سطر حساب الرصيد في الكود . تحياتي

السلام عليكم أخي فهد الدوسري .. كل ما ذكرته معمول به تماما . فقط مسألة واحدة أنا أخذتها كما كانت في مثالك الأصل حيث رأيتك استبعدت الأيام (كسر الشهر الأخير) عن المدة .. راجع المثال . ومع أني لم أقتنع وقتها ولكني لم أحاول أن أتدخل في طريقة الحساب . هذه المرة أنا…

السلام عليكم لا إضافة عندي ولكن هي بعض التساؤلات والتعليقات البسيطة : 1- أعتقد أن الخيارين ممكنين ويعتمد على وظيفة البرنامج المعمول به فكثير من البرامج لا ترى أي داعي لوجود كل هذه التفصيلات وتكتفي بما يشبه التعريف أو الوصف Description . 2 - أحيانا تكون الأسماء…

السلام عليكم أخي الفاضل تستطيع التعديل .. لا توجد موانع ، لقد قمت بتنفيذ ما فهمته وهو كالتالي : 1- أن تنقص فترة الإجازات الإستثنائية من إجمالي فترة الخدمة . 2 - أن تحسب الإجازات للشهور المكتملة فقط وهي 11 شهرا ويحذف أيام الشهر الناقص وهي 15 يوم . 3 - أن تنقص ج…

السلام عليكم الأخ mokhal15 : لقد أعطى النتيجة 28 يوم وهي القيمة للـ 27.5 حسب Round up أي بالأكسس الـ Cint أو Clng وفي حالة ما أريد قيمة الـ Int أي تكون النتيجة 27 تضاف دالة Int بداية سطر حساب الرصيد ليصبح كالتالي : الرصيد = Int((YGP + (MGP / 12)) * 30) - Nz(Me…

السلام عليكم استعرضت نتائج المثال ولم تروق لي النتائج فأخدت أبحث عن السبب وقد أضعت وقت كثيرا وأنا أقوم بالحساب بالآلة الحاسبة ومرة أخرى باستخدام الأكسل ودائما النتائج سليمة دون الأكسس وأخيرا وقعت على المشكلة وهي متمثلة في دالة حساب الأيام GetDays ، حيث عند حسا…

السلام عليكم مرفق الملف بعد التعديلات المطلوبة . وأود أن أوصي بالتالي : 1 - استخدام أسماء انجليزية للحقول . 2 - استخدام التاريخ الميلادي في التخزين . تحياتي . vacations_97.zip

السلام عليكم لم أستعرض المثال ولكن هذا الموضوع أتذكره جيدا أنه لأخينا الكريم أبو هاجر . تنبهت للموضوع منذ البداية ولكني ترددت في التداخل خوفا أن أقع في خطأ وعندما تأخر أخونا محمد طاهر في التنبيه اعتقدت أنه قد يكون الإثنان قد كتبا في نفس الموضوع ولكن بمشاركات م…

تعديل : استبدل هذا السطر : tDays = CDate(Hijri2Greg(Me.الرصيد_حتى)) - CDate(Hijri2Greg(Me.الخدمة_من)) بهذا السطر tDays = GetDays(Me.الرصيد_حتى, Me.الخدمة_من, 2) أو أضف يوم واحد على السطر الأول ليصبح كالتالي : tDays = CDate(Hijri2Greg(Me.الرصيد_حتى)) - CDate(Hi…

السلام عليكم تم التعديل على المثال الأصلي حيث لم أستطع استعمال الأمثلة المعدلة لعملها على أكسس 2002 . وقد تم التالي : 1- تعديل في العلاقات بين الجداول . 2 - توحيد طول رقم الموظف في الجداول . 3 - لم يفتح معي النوذج الرئيس واضطررت لتبديل مصدر البيانات . 4 - تم إ…

السلام عليكم تم إضافة دالة خامسة وهي تعتمد على الأيام ومتوسط طول الشهر . تحياتي . periods.zip

تعديل في دالة الحصول على الأيام : Function GetDays(ByVal DateFm As Variant, ByVal DateTo As Variant, Cal As Byte) as Long Const Gregorian = 1 Const Hijri = 2 Select Case Cal Case Gregorian GetDays = CDate(DateTo) - CDate(DateFm) + 1 Case Hijri GetDays = CDate(…

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

السلام عليكم أخي رضا عقيل تقويم أم القرى مجرب وخصوصا من أخينا وأستاذنا حارث ولم أتلقى أي شكوى من النتائج منذ وضعه في المنتدى وحتى الآن ، بالعلم أن أصل التقويم معمول منذ عام 94م على ما أعتقد . أما سؤالك عن بديل أسهل فلا أعلم عن وجود أي بديل باستثناء تقويم الأخ …

السلام عليكم هذا موضوع جديد لنفس موضوعك .. آمل الإطلاع : http://www.arabteam2000.com/vb/showthread....&threadid=23482 تحياتي .