سؤال فى تحويل كود الى موديول اظهار اسماء الايام والشهور كما يريد المبرمج دون التقيد بتنسق التاريخ فى نظام التشغيل

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته
اساتذتى الكرام الافاضل ممكن مساعدة فى المرفق الاتى 
اريد تحويل الكود الموجود على مربع النص باسم  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

[ابو جودي]

وهل يمكن استخدام الدالة switch بدلا من   

Select Case

[ابوخليل]

تفضل  عملت لك دالة لاسم اليوم  وأخرى لاسم الشهر

طبعا ضروري التفريق بينهما كما هو المتبع في اي لغة برمجية

Public Function mnthNm(txtDate As Date)
     Dim tx As String
     Select Case Month(txtDate)
                Case 1: tx = "جنجر"
                Case 2: tx = "فبرر"
                Case 3: tx = "مرس"
                Case 4: tx = "أبرول"
                Case 5: tx = "مي"
                Case 6: tx = "يون"
                Case 7: tx = "يول"
                Case 8: tx = "طسطس"
                Case 9: tx = "سبت"
                Case 10: tx = "أكت"
                Case 11: tx = "نوف"
                Case 12: tx = "ديس"
            End Select
          mnthNm = tx
End Function
Public Function dyNm(txtDate As Date)
  Dim tx As String
     Select Case Weekday(txtDate)
        Case 1: tx = "احد"
        Case 2: tx = "اثنين"
        Case 3: tx = "ثلاثاء"
        Case 4: tx = "ربعاء"
        Case 5: tx = "خميس"
        Case 6: tx = "جمعة"
        Case 7: tx = "سبت"
    End Select
       dyNm = tx
End Function

 

dayname2.rar

[ابو جودي]

35 دقائق مضت, ابوخليل said:

تفضل  عملت لك دالة لاسم اليوم  وأخرى لاسم الشهر

طبعا ضروري التفريق بينهما كما هو المتبع في اي لغة برمجية

Public Function mnthNm(txtDate As Date)
     Dim tx As String
     Select Case Month(txtDate)
                Case 1: tx = "جنجر"
                Case 2: tx = "فبرر"
                Case 3: tx = "مرس"
                Case 4: tx = "أبرول"
                Case 5: tx = "مي"
                Case 6: tx = "يون"
                Case 7: tx = "يول"
                Case 8: tx = "طسطس"
                Case 9: tx = "سبت"
                Case 10: tx = "أكت"
                Case 11: tx = "نوف"
                Case 12: tx = "ديس"
            End Select
          mnthNm = tx
End Function
Public Function dyNm(txtDate As Date)
  Dim tx As String
     Select Case Weekday(txtDate)
        Case 1: tx = "احد"
        Case 2: tx = "اثنين"
        Case 3: tx = "ثلاثاء"
        Case 4: tx = "ربعاء"
        Case 5: tx = "خميس"
        Case 6: tx = "جمعة"
        Case 7: tx = "سبت"
    End Select
       dyNm = tx
End Function

 

dayname2.rar

جزاكم الله خيرا استاذى الجليل ومعلمى القدير

[ابو جودي]

ولعموم الفائدة انا قمت ببعض التعديلات واللتى تتماشى معى انا فيما اريد تحقيقه
قد لا تعجب غيرى
ولكن من باب الاستزادة وتحقيق منفعة شمولية
قمت بعمل الاتى
استعراض الايام والشهور فى الاستعلام بناء على الموديول
استعراض الايام والشهور فى النموذج بناء على الموديول 

كل الشكر والتقدير للاستاذ الجليل ووالدنا الحبيب بارك الله تعالى لنا فيه ورزقة البركة فى العمر والعلم والعلم وجزاه عنى وعن امة محمد خيرا ان شاء الله

dayname_up.rar

[رمهان]

ايش رايك في التعبير التالي ومشاركة مع الاحبة

امسح كل الاكواد

ضع التعبير التالي في مربع اليوم

=Choose(Weekday([day_date]),"الاحد","الاثنين","الثلاثاء","الاربعاء","الخميس","الجمعه","السبت")

وعليك بعمل مربع الشهر 

 

بالتوفيق

[ابو جودي]

3 دقائق مضت, رمهان said:

ايش رايك في التعبير التالي ومشاركة مع الاحبة

امسح كل الاكواد

ضع التعبير التالي في مربع اليوم

=Choose(Weekday([day_date]),"الاحد","الاثنين","الثلاثاء","الاربعاء","الخميس","الجمعه","السبت")

وعليك بعمل مربع الشهر 

 

بالتوفيق

اهلا اهلا بالمسات الرمهانية 

[ابو جودي]

45 دقائق مضت, رمهان said:

ايش رايك في التعبير التالي ومشاركة مع الاحبة

امسح كل الاكواد

ضع التعبير التالي في مربع اليوم

=Choose(Weekday([day_date]),"الاحد","الاثنين","الثلاثاء","الاربعاء","الخميس","الجمعه","السبت")

وعليك بعمل مربع الشهر 

=Choose(Month([day_date]),"يناير","فبراير","مارس","أبريل","مايو","يونيو","يوليو","أغسطس","سبتمبر","أكتوبر","نوفمبر","ديسمبر")

بالتوفيق

تم اضافة كود اسماء الشهور بالطريقة الرمهانية

[ابو جودي]

كل الشكر والتقدير لمعلمينا الافاضل
جزاكم الله خيرا وشكر الله تعالى لكم جميل حلمكم وحسن كرمكم
اسال الله تعالى ان يرزقكم البركة فى العمر والعلم ويزيدكم علما  وفضلا كبيرا 

الاستاذ : رمهـــان  

الاستاذ : ابوخليل  

اشهد الله تعالى انى احبكم فى الله ولله