طلب تحويل أسماء الشهور العربية في الكود إلى الترميز العالمي

alsihran · ديسمبر 27, 2020

السلام عليكم

بالمرفق تقويم أم القرى

في الفورم Cal

توجد هذه الاكواد

    Me.cboMonth.RowSource = "1;Moharram;محرم;2;Safar;صفر;3;Rabi I;ربيع الأول;4;Rabi II;ربيع الآخر;5;Jumada I;جمادى الأولى;6;Jumada II;" & _
                            "جمادى الآخرة;7;Rajab;رجب;8;Shaban;شعبان;9;Ramadhan;رمضان;10;Shawwal;شوال;11;Thul-Qudah;ذو القعدة;12;Thul-Hijjah;ذو الحجة"

    Me.cboMonth.RowSource = "1;January;يناير;2;February;فبراير;3;March;مارس;4;April;أبريل;5;May;مايو;6;June;" & _
                            "يونيو;7;July;يوليو;8;August;أغسطس;9;September;سبتمبر;10;October;أكتوبر;11;November;نوفمبر;12;December;ديسمبر"

    Me.cboMonth.RowSource = "1;Moharram;محرم;2;Safar;صفر;3;Rabi I;ربيع الأول;4;Rabi II;ربيع الآخر;5;Jumada I;جمادى الأولى;6;Jumada II;" & _
                            "جمادى الآخرة;7;Rajab;رجب;8;Shaban;شعبان;9;Ramadhan;رمضان;10;Shawwal;شوال;11;Thul-Qudah;ذو القعدة;12;Thul-Hijjah;ذو الحجة"

وبسبب مشاكل اللغة العربية في الاكود اريد تغيير اسماء الاشهر باللغة العربية الى الترميز العالمي

UmAlQuraUp.mdb

**ابو جودي** · ديسمبر 27, 2020

اتفضل التطبيق الذى يساعدك ع التحويل

وان اردتهم جاهزين

'---------------------------Months---------------------------
'English Months
Public Function EngMonth(myData As Date)
        Select Case Month(myData)
            Case 1: MnNm = "January"
            Case 2: MnNm = "February"
            Case 3: MnNm = "March"
            Case 4: MnNm = "April"
            Case 5: MnNm = "May"
            Case 6: MnNm = "June"
            Case 7: MnNm = "July"
            Case 8: MnNm = "August"
            Case 9: MnNm = "September"
            Case 10: MnNm = "October"
            Case 11: MnNm = "November"
            Case 12: MnNm = "December"
        End Select
    EngMonth = MnNm
End Function
'--------------------------


'--------------------------
'Arabic Months
Public Function ArbMonth(myData As Date)
        Select Case Month(myData)
            Case 1: MnNm = ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1610") & ChrW("1585")
            Case 2: MnNm = ChrW("1601") & ChrW("1576") & ChrW("1585") & ChrW("1575") & ChrW("1610") & ChrW("1585")
            Case 3: MnNm = ChrW("1605") & ChrW("1575") & ChrW("1585") & ChrW("1587")
            Case 4: MnNm = ChrW("1571") & ChrW("1576") & ChrW("1585") & ChrW("1610") & ChrW("1604")
            Case 5: MnNm = ChrW("1605") & ChrW("1575") & ChrW("1610") & ChrW("1608")
            Case 6: MnNm = ChrW("1610") & ChrW("1608") & ChrW("1606") & ChrW("1610") & ChrW("1608")
            Case 7: MnNm = ChrW("1610") & ChrW("1608") & ChrW("1604") & ChrW("1610") & ChrW("1608")
            Case 8: MnNm = ChrW("1571") & ChrW("1594") & ChrW("1587") & ChrW("1591") & ChrW("1587")
            Case 9: MnNm = ChrW("1587") & ChrW("1576") & ChrW("1578") & ChrW("1605") & ChrW("1576") & ChrW("1585")
            Case 10: MnNm = ChrW("1571") & ChrW("1603") & ChrW("1578") & ChrW("1608") & ChrW("1576") & ChrW("1585")
            Case 11: MnNm = ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1605") & ChrW("1576") & ChrW("1585")
            Case 12: MnNm = ChrW("1583") & ChrW("1610") & ChrW("1587") & ChrW("1605") & ChrW("1576") & ChrW("1585")
        End Select
    ArbMonth = MnNm
End Function
'--------------------------

'--------------------------
'Hijri Months
Public Function HjrMonth(myData As Date)
        Select Case Month(myData)
            Case 1: MnNm = ChrW("1605") & ChrW("1581") & ChrW("1585") & ChrW("1605")
            Case 2: MnNm = ChrW("1589") & ChrW("1601") & ChrW("1585")
            Case 3: MnNm = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604")
            Case 4: MnNm = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585")
            Case 5: MnNm = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") & ChrW("1610")
            Case 6: MnNm = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") & ChrW("1577")
            Case 7: MnNm = ChrW("1585") & ChrW("1580") & ChrW("1576")
            Case 8: MnNm = ChrW("1588") & ChrW("1593") & ChrW("1576") & ChrW("1575") & ChrW("1606")
            Case 9: MnNm = ChrW("1585") & ChrW("1605") & ChrW("1590") & ChrW("1575") & ChrW("1606")
            Case 10: MnNm = ChrW("1588") & ChrW("1608") & ChrW("1575") & ChrW("1604")
            Case 11: MnNm = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1593") & ChrW("1583") & ChrW("1577")
            Case 12: MnNm = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1580") & ChrW("1577")
        End Select
    HjrMonth = MnNm
End Function
'--------------------------
'---------------------------Months---------------------------


'--------------------------
'Arabic Days
Public Function ArbDayName(myData As Date)
        Select Case Weekday(myData)
            Case 1: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1581") & ChrW("1583")                                                '01 |   Sunday    | Sun |
            Case 2: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1579") & ChrW("1606") & ChrW("1610") & ChrW("1606")                  '02 |   Monday    | Mon |
            Case 3: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569")   '03 |   Tuesday   | Tue |
            Case 4: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569")   '04 |   Wednesday | Wed |
            Case 5: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587")                                 '05 |   Thursday  | Thu |
            Case 6: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1607")                                 '06 |   Friday    | Fri |
            Case 7: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578")                                                '07 |   Saturday  | Sat |
        End Select
    ArbDayName = DyNm
End Function
'--------------------------

'--------------------------
'English Days
Public Function EngDayName(myData As Date)
        Select Case Weekday(myData)
            Case 1: DyNm = "Sunday"         '01 |     Sunday    | Sun |
            Case 2: DyNm = "Monday"         '02 |     Monday    | Mon |
            Case 3: DyNm = "Tuesday"        '03 |     Tuesday   | Tue |
            Case 4: DyNm = "Wednesday"      '04 |     Wednesday | Wed |
            Case 5: DyNm = "Thursday"       '05 |     Thursday  | Thu |
            Case 6: DyNm = "Friday"         '06 |     Friday    | Fri |
            Case 7: DyNm = "Saturday"       '07 |     Saturday  | Sat |
        End Select
    EngDayName = DyNm
End Function
'--------------------------

'--------------------------
'Short Names English Days
Public Function ShortDayName(myData As Date)
        Select Case Weekday(myData)
            Case 1: DyNm = "Sun"            '01 |     Sunday    | Sun |
            Case 2: DyNm = "Mon"            '02 |     Monday    | Mon |
            Case 3: DyNm = "Tue"            '03 |     Tuesday   | Tue |
            Case 4: DyNm = "Wed"            '04 |     Wednesday | Wed |
            Case 5: DyNm = "Thu"            '05 |     Thursday  | Thu |
            Case 6: DyNm = "Fri"            '06 |     Friday    | Fri |
            Case 7: DyNm = "Sat"            '07 |     Saturday  | Sat |
        End Select
    ShortDayName = DyNm
End Function
'--------------------------
'---------------------------Days---------------------------

Converter Arabic and Unicode (v. 2).mdb

تم تعديل ديسمبر 27, 2020 بواسطه ابا جودى
تعديل المرفق

alsihran · ديسمبر 27, 2020

15 دقائق مضت, ابا جودى said:

اتفضل التطبيق الذى يساعدك ع التحويل

شكرا لك أخ محمد

حاولت التطبيق ولم انجح أتمنى منك التعديل على الأكواد المشار اليها

**ابو جودي** · ديسمبر 27, 2020

اتفضل ☺️

UmAlQuraUp.mdb

alsihran · ديسمبر 27, 2020

17 دقائق مضت, ابا جودى said:

تفضل ☺️

الله يتفضل عليك

تسلم شاكر ومقدر لك

**ابو جودي** · ديسمبر 27, 2020

الان, alsihran said:

الله يتفضل عليك

تسلم شاكر ومقدر لك

جربتها وتمام الحمد لله ...

هل تم حل مشكلتك

alsihran · ديسمبر 27, 2020

الان, ابا جودى said:

جربتها وتمام الحمد لله ...

هل تم حل مشكلتك

100/%

بارك الله فيك

وبما ان احنا في نفس الموضوع

ياليت تشوف لي هذا الكود خاص بعمل اختصار على سطح المكتب مايقبل الترميز مش عارف ليه

    DB_Name = Application.CurrentProject.Name
    DB_Path = Application.CurrentProject.Path
    icon_Name = "Arc5.ico"
    icon_Path = Application.CurrentProject.Path
   ' icon_Name_Path = icon_Path & "\" & icon_Name
 icon_Name_Path = icon_Path & "\icon\" & icon_Name
With CreateObject("WScript.Shell")
  With .CreateShortcut(.SpecialFolders("Desktop") & "\البرنامج.lnk")
    .TargetPath = DB_Path & "\" & DB_Name
    .WindowStyle = 1
    .Hotkey = ""
    .IconLocation = icon_Name_Path
    .Description = "برنامج  "
    .WorkingDirectory = DB_Path & "\"
      .Save
  End With
End With

**ابو جودي** · ديسمبر 28, 2020


DB_Name = Application.CurrentProject.Name DB_Path = Application.CurrentProject.Path icon_Name = "Arc5.ico" icon_Path = Application.CurrentProject.Path ' icon_Name_Path = icon_Path & "\" & icon_Name icon_Name_Path = icon_Path & "\icon\" & icon_Name With CreateObject("WScript.Shell") With .CreateShortcut(.SpecialFolders("Desktop") & "\" & اسم البرنامج بالتركيز العالمي & ".lnk") .TargetPath = DB_Path & "\" & DB_Name .WindowStyle = 1 .Hotkey = "" .IconLocation = icon_Name_Path .Description = وصف البرنامج بالترميز العالمى .WorkingDirectory = DB_Path & "\" .Save End With End With

انا عدلت الكود من خلال الموبايل اعتذر لعدم وجود مرفق

alsihran · ديسمبر 28, 2020

34 دقائق مضت, ابا جودى said:

انا عدلت الكود من خلال الموبايل اعتذر لعدم وجود مرفق

image.png.371f52e25f63f9a264da432b33246b7f.png

image.png.15845660e619b0682b22f44057a77366.png

طلع عندي نفس الخطأ اللي بالكود السابق

واذا جعلت اسم الاختصار بالانجليزي يشتغل تمام

تم تعديل ديسمبر 28, 2020 بواسطه alsihran

**ابو جودي** · ديسمبر 28, 2020

ممكن المرفق

**ابو جودي** · ديسمبر 28, 2020

على العموم اتفضل انا استخدم هذا الروتين فى تنقيذ الشورت كت :yes:

Creat Shortcut.zip

alsihran · ديسمبر 29, 2020

15 ساعات مضت, ابا جودى said:

اتفضل انا استخدم هذا الروتين فى تنقيذ الشورت كت

نفس الشي حتى برنامجك يطلع لي خطأ لمى اشغلة

image.png.6a838ec9895967268b5ffb93aab645ed.png

تم تعديل ديسمبر 29, 2020 بواسطه alsihran

**jjafferr** · ديسمبر 29, 2020

في ٢٧‏/١٢‏/٢٠٢٠ at 21:24, alsihran said:

وبسبب مشاكل اللغة العربية في الاكود اريد تغيير اسماء الاشهر باللغة العربية الى الترميز العالمي

رجاء مراجعة هذا الرابط

.

ولا يوجد شيء اسمه ترميز عالمي ، كل اللي تحتاج لما تريد مناداة الشهر 2 من الاشهر العربية :

Me.Moth_Hijri = DLookup("[Months_Hijri]", "tbl_Months", "[Months_Number]=" & 2)

.

وبما ان الاشهر موجودة في سجلات في جدول ، فبكل بساطة يمكنك ان تضيف حقل جديد لأسماء الاشهر العربية بالانجليزي ،

ثم تستعملها للمربع السرد ComboBox ، وبدون اكواد.

خليني اوضح لك نقطة انت محتار فيها ، والاكواد اعلاه تخليك تضيع اكثر :

لا تكتب الكلمات العربية في الكود ، ولكن اكتبها في الجدول ، وناديها من الجدول ، وما بتصادف اي مشكلة 🙂

جعفر

**ابو جودي** · ديسمبر 29, 2020

5 ساعات مضت, alsihran said:

نفس الشي حتى برنامجك يطلع لي خطأ لمى اشغلة

طيب لو تكرنت تتفضل بتحربة المرفق الاتى سوف يتم وضع الاختصار للبرنامج فى القطاع D

ان تم وضع اختصار بدون مشاكل أخبرنى

وقطعا يجب الاخذ فى الاعتبار بما تفضل به استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr :fff:

يمكن عمل جدول وتقوم بإستدعاء البيانات منه من خلال كود بدون التطرق الى استخدام نظام الترميز الموحد unicode :yes:

Creat Shortcut (D).zip

تم تعديل ديسمبر 29, 2020 بواسطه ابا جودى

alsihran · ديسمبر 29, 2020

40 دقائق مضت, jjafferr said:

وما بتصادف اي مشكلة

حياك الله استاذ

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

ضخم وفيها اكواد كثيرة ويعتمد على متى يتم استدعاء الشهر والتاريخ بالعربي ومتى يتم استدعائهم

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

40 دقائق مضت, jjafferr said:

خليني اوضح لك نقطة انت محتار فيها ، والاكواد اعلاه تخليك تضيع اكثر :

انا بالفعل حاولت اطبق طريقتك وخاصة مع موضوع الرسائل اللي حطيت لي رابطه لكن واجهت مشكلة

ما عرفت ادمج الرسالة مع الدوال

alsihran · ديسمبر 29, 2020

16 دقائق مضت, ابا جودى said:

طيب لو تكرنت تتفضل بتحربة المرفق الاتى سوف يتم وضع الاختصار للبرنامج فى القطاع D

image.png.050d07731b2525bf27a33949c7de9c74.png

alsihran · يناير 4, 2021

هل من حل لهذا الموضوع .....؟

تسجيل الدخول

طلب تحويل أسماء الشهور العربية في الكود إلى الترميز العالمي

الردود الموصى بها

alsihran

ابو جودي

alsihran

ابو جودي

alsihran

ابو جودي

alsihran

ابو جودي

alsihran

ابو جودي

ابو جودي

alsihran

jjafferr

ابو جودي

alsihran

alsihran

alsihran

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information