بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'اسماء الشهور'.
تم العثور علي 1 نتيجه
-
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام الافاضل ممكن مساعدة فى المرفق الاتى اريد تحويل الكود الموجود على مربع النص باسم day_date الى موديول وهذا هو الكود الذى اريد وضعه فى موديول حيث ان هذا الكود يظهر الاسماء للايام والشهور باللغىة التى يريدها المستخدم ولكن اريد استخدامة فى اكثر من نموذج وفى كل التقارير واريد تحويله الى موديول حتى تكون هناك مرونه ويسر فى استدعاء الكود واتمنى لو كان هناك طريقة افضل من هذه او اختصار للاكواد وتبسيطها بدلا من كل تلك الاكواد فهذا فكرى المتواضع وبحثت كثيرا ولم اجد شيئا عن هذا الموضوع day_name = WeekdayName(Weekday([day_date]), False, 1) Select Case Weekday([day_date]) Case 1: day_name = "الأحد" Case 2: day_name = "الأثنين" Case 3: day_name = "الثلاثاء" Case 4: day_name = "الأربعاء" Case 5: day_name = "الخميس" Case 6: day_name = "الجمعة" Case 7: day_name = "السبت" End Select month_name = MonthName(Month([day_date]), False) Select Case Month([day_date]) Case 1: month_name = "يناير" Case 2: month_name = "فبراير" Case 3: month_name = "مارس" Case 4: month_name = "أبريل" Case 5: month_name = "مايو" Case 6: month_name = "يونيو" Case 7: month_name = "يوليو" Case 8: month_name = "أغسطس" Case 9: month_name = "سبتمبر" Case 10: month_name = "أكتوبر" Case 11: month_name = "نوفمبر" Case 12: month_name = "ديسمبر" End Select End Sub اعتذر للاطالة والاثقال على عليكم ولكن كما عهدناكم وعودتمونا اهل جود وكرم جزاكم الله تعالى عنا خيرا ان شاء الله dayname.rar