السلام عليكم ورحمة الله وبركاته ...
لدي هنا أستفساران :
1- هل يمكن تخطي يومي الخميس والجمعة ؟ يعني إذا كان عندي تاريخ بداية وتاريخ نهاية ... وكانت المدة بينهما متضمنة ليومي الخميس والجمعة ..ز فهل يمكن أن أضع كود يقوم بتخطيهما إذ كان من ضمن المدة بحيث لا يحسبهما ؟
- طبعاً الأستفسار بالتاريخ الهجري _
2 - كيف أضع خيار لتفعيل كود أو تنشيطه ؟
وشكراً لكم
سوال مهم جدا وليكن زيادة بالتوضيح لو اخد شخص عطله بتاريخ معين وانتهي بتاريخ معين اخر كم المدة التي قضاها في تلك العطله مع استبعاد يومي الخميس والجمعه
أخي الكريم
السلام عليكم
هذه دالة كتبتها على عجل آمل تجربتها والإفادة حيث لم أجربها
Public Function mydatediff(date1 As Date, date2 As Date)
Dim wen As Byte
Dim fri As Byte
wen = DateDiff("ww", date1, date2, vbTuesday)
fri = DateDiff("ww", date1, date2, vbFriday)
mydatediff = DateDiff("d", date1, date2) - (wen + fri)
End Functionإذا وضعت الدالة السابقة في وحدة نمطية عامة يمكنك استخدامها في استعلام أم نموذج أو تقرير وفي الوحدات النمطية للنماذج أو في عناصر التحكم كما تستعمل أي دالة من الدوال المبنية داخل أكسس
تحياتي
أخوك / أبو هاجر
فكرة عظيمة أبو هاجر وجميلة جدا وتنفع التاريخ الميلادي والهجرى
وبعد إذنكم شرح لتطبيق الخطوات :
1- انشئ 3 مربعات نص على نموذج ما
2- سمى المربع الأول date1 والمربع الثاني date2
3- ضع فى صفحة البيانات للحقل الثالث فى حقل مصدر التحكم ما يلي
=mydatediff([date1];[date2])
4- لا تنسى أن تنسخ الوحدة النمطية التي وضعها أبو هاجر طبعا
اذا ماكان فيها ثقلة هل بالامكان دعمنا بمثال ( انتم كريمين )
الأخ الكريم
السلام عليكم
وأنت أكرم
أرفق مثال يحتوي على جدول فيه تاريخين وسوف أقوم ـ بإذن الله ـ بكتابة استعلام يعرض الفرق مع الخميس والجمعة وبدونهما باستخدام الدالة
على فكرة كيف دبي فقد اشتقت لها كثيراً
تحياتي
أخوك / أبو هاجر
دبـي تنور بوجود الطيبين امثالك وهي ايضا اشتاقت لك فيا ريت تعيدها
(اخي ابو هاجر ياريت تحط المثال فأعتعقد انك نسيت وضعة)
أخي الكريم زكوان
السلام عليكم
الحقيقة أن الفعل ( أرفق ) الذي ذكرته في مشاركتي السابقة هو فعل أمر وليس فعل مضارع كما فهمت
بعبارة أخرى المطلوب أن ترفق أنت الملف حتى يكون التطبيق على شيء تعرفه أنت جيداً
لك شكري وتحياتي
أخوك / أبو هاجر
لاتؤاخذني اخي الكريم العتب على النظر
اخي الموقر
سلام الله عليك ورحمتة وبركاتة
احتاج عندما اضع تاريخ Date مثلاً 23/01/2003 في الخانة الثانية (في الاستعلام) اذا كان اليوم في التاريخ غير يوم الجمعة عندئذً يضيف يوم واذا كان اليوم جمعة يضيف يومان
آسف نسيت الملف
والله الواحد منا مهما قال عنك اخي ابو هاجر لايفيك حقك واقول دائما امدك الله بالصحة والعافية والف شكرا حقاً هذا مااريد .
(من باب العلم بالشيئ ممكن شرح طيقة عمل هذة الدالة اذا امكن (نحن دائما نطمع من سعة صدرك ))
أخي الكريم زكوان
السلام عليكم
لعل الصورة تتضح لك عندما أقوم بشرح دوال التاريخ قريباً إن شاء الله
تحياتي
وأنا بأنتظار ذلك والف شكر مقدما
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…