hanan_ms قام بنشر يوليو 23 مشاركة قام بنشر يوليو 23 برنامج مجهز : Calendar V3 Change Calendar Ms.Access مميزات البرنامح 1-اضافة العطل الرسمية 2-اضافة حجز التواريخ Calendar -امكان تخصيص الون -عدم تمكين ازرار التاريخ 3-عرض تقرير لكافة العطل الرسمية 4- تاريخ الميلادي - تاريخ الهجري - تواريخ مع الوقت 5- تخصيص اعداداة للبرنامج 6- امكانية تحديد ايام العمل بفصل ايام العطل بترميز ايام الاسبوع 7-غفل الشهر من اشهر السنه ك اجازة قضات تبدا من شهر 6 الى شهر 8 8-اعداداة التحكم بالتاريخ من السنوات والشهور 9-تفعيل عند تحريك مؤشر الماوس 10 - عرض فروقات التواريخ تبدا من اليوم او من تاريخ الى تاريخ 11-امكانية ادراج التواريخ لاي حقل في فورم الى فورم آخر مفرع الى التفريع منغير استخدام جداول الادارج من Function لو بتكلم عن تجزئة For مجزء فحص 12-التصميم مختلف وتغير الالوان عند اختيار او ضغط على اسهم الكيبورد للتقلب في التقويم واظن ما تعودتوا عليه من قبل 😇 اتمنى لكم تجربة ممتعة ❤️🌹 ============================================================= Update_V3_Sken_Calendr_One_Form.rar رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يوليو 23 مشاركة قام بنشر يوليو 23 شغال عالي يا باشمهندسه الله ينور 🌹🌹🌹 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يوليو 23 مشاركة قام بنشر يوليو 23 (معدل) عمل جميل جدا ، تسلم إيديكي على هذا العمل ، لي ملاحظة ، وهي ظهور الفرق بين تاريخين -5 شهر ، أو العدد بالايام -170.. هل هذا منطقي ؟؟؟؟ تم تعديل يوليو 23 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
hanan_ms قام بنشر يوليو 24 الكاتب مشاركة قام بنشر يوليو 24 6 hours ago, Foksh said: وهي ظهور الفرق بين تاريخين -5 شهر ، أو العدد بالايام -170.. صباح الخير استاذ @Foksh ☕ من فبراير الى تاريخ اليوم احسب = مضبوط 100 💯 الاستخراج بدل 2\4\2024 يستخرج 4\2\2024 dim y dim m dim d قرتب التاريخ بالكود dim day as date day = d & "/" & m & "/" y واذا تقصد صافي الفروقات بطرع العطل والاجازات والمحجوزات للفتره المحدد من تاريخ الى تاريخ 📐 بطريقة الي استخدمتها اسهل Cod mine : dim Total_D as string dim Minz_X as long Dim i_Count_X as intger Total_D = Me.Total_day 'dates..(date,"")'(Selected day from calendrer) '============== for i_Count = 0 to me.terbo (ListBox = Day Off ).le... -1 ... next Minz_X = i_Count_X '============ me.N1 = Total_D - Minz_X '================ صحيح ينقصة اضافات قائمة الحجز مع التقرير وعرض الميلادي بالمعكوس اضافة عرض التواريخ الهجريه عند تحديد الشهر لكافة ازرار الايام اضغط على مفتاح الكيبورد [H] واستبدال التواريخ ميلادي [M] وضافة فورم مختصر للتواريخ لحاله والتوقيت لحالة والمقارنة التواريخ لحالها مع المعروض كامل التحكم عن طريق دالة عند حدث الزر فقط اختر الكود '=========(Selected Show calendrer) '==================(Full_Control_Only , calendrer_Only , Time_Only , Date_To_Date) =(4 item = 4 Form ) Full_Control_Only كنت بخليه بتحديث لوقت ثاني استاذ @Foksh❤️ اذا عندك مرفق للاحتساب التواريخ او مرفق للتقويم يمكن التعديل على مرفقي مفتوح المصدر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان