تصميم شاشة بها تواريخ كل يوم منفصل

أبو امين · مارس 23, 2023

Up

**AbuuAhmed** · مارس 23, 2023

أخي لو أكملت على نسخة 2003 التي رفعتها أنا كان تركت فرصة لأكثر من واحد يحاول معك في حل المشكلة.
كذلك لما لا تجعل تعديلك على التقرير وليس النموذج ، أنا الصراحة لم يأتي في بالي أن يحول "نموذج" إلى PDF ، جرب في التقرير أخي.

أبو امين · مارس 24, 2023

في 22‏/3‏/2023 at 11:51, Moosak said:

أخي @أبو امين أرفق الملف ...

استاذ Moosak نحن ننتظر من قبل حلول رمضان لمساعدتنا

أبو امين · مارس 24, 2023

لم اعد اعلم هلى لهذه الدرجة عجز اساتذتي الافاضل على حل الاشكال ام ام ان السؤال بسيط الى درجة انه لم يجد الجواب :

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

في 19‏/3‏/2023 at 20:00, Eng.Qassim said:

حتزبطبت معك ان شاء الله ...بس انت حاول تضبط النموذج تبعك ...لانه لايفتح عندي ..وارفعه مجددا كي اعمل عليه

اعذرني فالوقت متأخر ...ولا استطيع التركيز كثيرا ...فهذا حال العجائز امثالي ياأخي 😄

في 23‏/3‏/2023 at 19:51, AbuuAhmed said:

أخي لو أكملت على نسخة 2003 التي رفعتها أنا كان تركت فرصة لأكثر من واحد يحاول معك في حل المشكلة.
كذلك لما لا تجعل تعديلك على التقرير وليس النموذج ، أنا الصراحة لم يأتي في بالي أن يحول "نموذج" إلى PDF ، جرب في التقرير أخي.

ساحاول استعمال نسخة 2003 و ان شاء الله تزبط المسالة

شكرا

**عمر ضاحى** · مارس 25, 2023

في 21‏/3‏/2023 at 10:28, Moosak said:

بالنسبة لسؤالك فالموضوع بسيط جدا 🙂 .. وتستطيع تغيره كالتالي :

1- من نموذج Tqweem غير مكان أسماء الأيام ( انتبه فقط ليبل الأسماء وليس خلايا الأرقام ) هكذا :

2- في نموذج Tqweem_Sanawi في الأكواد تبدل هذه العبارة : بداية الأسبوع بدل : vbSaturday تصبح vbMonday هكذا :

3 - كرر الخطوة رقم واحد في التقرير Tqweem_R ...

والنتيجة النهائية 🙂 :

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

**Moosak** · مارس 25, 2023

السلام عليكم 🙂

أخي العزيز @أبو امين .. لا تعجل على إخوانك .. فلا يعلم بظروفهم إلا الله .. وخصوصا منهم من قلص حصة المنتدى من الوقت في رمضان ليتفرغ للعبادة 🙂 ..

والحقيقة كانت لي محاولات في تعديل ملفك ولكن .. كلها لم تنجح وتحتاج لمزيد من الوقت .. وربما لتغييرات جذرية في الكود ولكن لم أتفرغ لها ..

8 ساعات مضت, عمر ضاحى said:

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

نعم أخي @عمر ضاحى .. استخدم هذه الدالة لمبدعنا @ابو جودي 🙂 :

'==============================================( MnthName)
اسماء الشهور  الهجرى - العربى( الميلادى) - الانجليزيى( الميلادى) - اختصارالانجليزيى( الميلادى) - القبطى - السريانى'


'  .__   __.      ___      .___  ___.  _______      _______.     ______    _______    .___________. __    __   _______    .___  ___.   ______   .__   __. .___________. __    __       _______.
'  |  \ |  |     /   \     |   \/   | |   ____|    /       |    /  __  \  |   ____|   |           ||  |  |  | |   ____|   |   \/   |  /  __  \  |  \ |  | |           ||  |  |  |     /       |
'  |   \|  |    /  ^  \    |  \  /  | |  |__      |   (----`   |  |  |  | |  |__      `---|  |----`|  |__|  | |  |__      |  \  /  | |  |  |  | |   \|  | `---|  |----`|  |__|  |    |   (----`
'  |  . `  |   /  /_\  \   |  |\/|  | |   __|      \   \       |  |  |  | |   __|         |  |     |   __   | |   __|     |  |\/|  | |  |  |  | |  . `  |     |  |     |   __   |     \   \
'  |  |\   |  /  _____  \  |  |  |  | |  |____ .----)   |      |  `--'  | |  |            |  |     |  |  |  | |  |____    |  |  |  | |  `--'  | |  |\   |     |  |     |  |  |  | .----)   |
'  |__| \__| /__/     \__\ |__|  |__| |_______||_______/        \______/  |__|            |__|     |__|  |__| |_______|   |__|  |__|  \______/  |__| \__|     |__|     |__|  |__| |_______/
'
Public Function MnthName(ByVal dtAnyDate As Date, ByVal strLng As String)

'to call the Function
'To Hijri
'txtMonthNameHijri =MnthName(txtDate,"HJ")

'To Arabic
'txtMonthNameArabic =MnthName(txtDate,"Ar")

'To English
'txtMonthNameEnglish =MnthName(txtDate,"En")

'To English Short
'txtMonthNameEnglish =MnthName(txtDate,"EnShrt")

'To Coptic
'txtMonthNameCoptic =MnthName(txtDate,"Cpti")

'To Syriac
'txtMonthNameSyriac =MnthName(txtDate,"Syr")

Dim str01 As String
Dim str02 As String
Dim str03 As String
Dim str04 As String
Dim str05 As String
Dim str06 As String
Dim str07 As String
Dim Str08 As String
Dim Str09 As String
Dim Str10 As String
Dim Str11 As String
Dim Str12 As String

    If strLng = "HJ" Then
        str01 = ChrW("1605") & ChrW("1581") & ChrW("1585") & ChrW("1605")
        str02 = ChrW("1589") & ChrW("1601") & ChrW("1585")
        str03 = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604")
        str04 = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585")
        str05 = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") & ChrW("1610")
        str06 = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") & ChrW("1577")
        str07 = ChrW("1585") & ChrW("1580") & ChrW("1576")
        Str08 = ChrW("1588") & ChrW("1593") & ChrW("1576") & ChrW("1575") & ChrW("1606")
        Str09 = ChrW("1585") & ChrW("1605") & ChrW("1590") & ChrW("1575") & ChrW("1606")
        Str10 = ChrW("1588") & ChrW("1608") & ChrW("1575") & ChrW("1604")
        Str11 = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1593") & ChrW("1583") & ChrW("1577")
        Str12 = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1580") & ChrW("1577")
    
    ElseIf strLng = "Ar" Then
        str01 = ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1610") & ChrW("1585")
        str02 = ChrW("1601") & ChrW("1576") & ChrW("1585") & ChrW("1575") & ChrW("1610") & ChrW("1585")
        str03 = ChrW("1605") & ChrW("1575") & ChrW("1585") & ChrW("1587")
        str04 = ChrW("1571") & ChrW("1576") & ChrW("1585") & ChrW("1610") & ChrW("1604")
        str05 = ChrW("1605") & ChrW("1575") & ChrW("1610") & ChrW("1608")
        str06 = ChrW("1610") & ChrW("1608") & ChrW("1606") & ChrW("1610") & ChrW("1577")
        str07 = ChrW("1610") & ChrW("1608") & ChrW("1604") & ChrW("1610") & ChrW("1577")
        Str08 = ChrW("1571") & ChrW("1594") & ChrW("1587") & ChrW("1591") & ChrW("1587")
        Str09 = ChrW("1587") & ChrW("1576") & ChrW("1578") & ChrW("1605") & ChrW("1576") & ChrW("1585")
        Str10 = ChrW("1575") & ChrW("1603") & ChrW("1578") & ChrW("1608") & ChrW("1576") & ChrW("1585")
        Str11 = ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1605") & ChrW("1576") & ChrW("1585")
        Str12 = ChrW("1583") & ChrW("1610") & ChrW("1587") & ChrW("1605") & ChrW("1576") & ChrW("1585")
  
  ElseIf strLng = "En" Then
        str01 = "January"
        str02 = "February"
        str03 = "March"
        str04 = "April"
        str05 = "May"
        str06 = "June"
        str07 = "July"
        Str08 = "August"
        Str09 = "September"
        Str10 = "October"
        Str11 = "November"
        Str12 = "December"
  
  ElseIf strLng = "EnShrt" Then
        str01 = "Jan"
        str02 = "Feb"
        str03 = "Mar"
        str04 = "Apr"
        str05 = "May"
        str06 = "Jun"
        str07 = "Jul"
        Str08 = "Aug"
        Str09 = "Sep"
        Str10 = "Oct"
        Str11 = "Nov"
        Str12 = "Dec"
        
  ElseIf strLng = "Cpti" Then
        str01 = ChrW("1591") & ChrW("1608") & ChrW("1576") & ChrW("1577")
        str02 = ChrW("1571") & ChrW("1605") & ChrW("1588") & ChrW("1610") & ChrW("1585")
        str03 = ChrW("1576") & ChrW("1585") & ChrW("1605") & ChrW("1607") & ChrW("1575") & ChrW("1578")
        str04 = ChrW("1576") & ChrW("1585") & ChrW("1605") & ChrW("1608") & ChrW("1583") & ChrW("1577")
        str05 = ChrW("1576") & ChrW("1588") & ChrW("1606") & ChrW("1587")
        str06 = ChrW("1576") & ChrW("1572") & ChrW("1608") & ChrW("1606") & ChrW("1577")
        str07 = ChrW("1571") & ChrW("1576") & ChrW("1610") & ChrW("1576")
        Str08 = ChrW("1605") & ChrW("1587") & ChrW("1585") & ChrW("1609")
        Str09 = ChrW("1578") & ChrW("1608") & ChrW("1578")
        Str10 = ChrW("1576") & ChrW("1575") & ChrW("1576") & ChrW("1577")
        Str11 = ChrW("1607") & ChrW("1575") & ChrW("1578") & ChrW("1608") & ChrW("1585")
        Str12 = ChrW("1603") & ChrW("1610") & ChrW("1575") & ChrW("1607") & ChrW("1603")
  
  ElseIf strLng = "Syr" Then
        str01 = ChrW("1603") & ChrW("1575") & ChrW("1606") & ChrW("1608") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1575") & ChrW("1606") & ChrW("1610")
        str02 = ChrW("1588") & ChrW("1576") & ChrW("1575") & ChrW("1591")
        str03 = ChrW("1570") & ChrW("1584") & ChrW("1575") & ChrW("1585")
        str04 = ChrW("1606") & ChrW("1610") & ChrW("1587") & ChrW("1575") & ChrW("1606")
        str05 = ChrW("1571") & ChrW("1610") & ChrW("1575") & ChrW("1585")
        str06 = ChrW("1581") & ChrW("1586") & ChrW("1610") & ChrW("1585") & ChrW("1575") & ChrW("1606")
        str07 = ChrW("1578") & ChrW("1605") & ChrW("1608") & ChrW("1586")
        Str08 = ChrW("1570") & ChrW("1576")
        Str09 = ChrW("1571") & ChrW("1610") & ChrW("1604") & ChrW("1608") & ChrW("1604")
        Str10 = ChrW("1578") & ChrW("1588") & ChrW("1585") & ChrW("1610") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604")
        Str11 = ChrW("1578") & ChrW("1588") & ChrW("1585") & ChrW("1610") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1575") & ChrW("1606") & ChrW("1610")
        Str12 = ChrW("1603") & ChrW("1575") & ChrW("1606") & ChrW("1608") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604")
  End If
    
    MnthName = Choose(Format(dtAnyDate, "MM"), str01, str02, str03, str04, str05, str06, str07, Str08, Str09, Str10, Str11, Str12)
End Function
'----------------------------End-------------------------------------------------------------------------------------------

شخابيط وافكار : Date Functions - دوال التاريخ بطعم جديد وتحكم شامل

أبو امين · مارس 25, 2023

7 ساعات مضت, Moosak said:

السلام عليكم 🙂

أخي العزيز @أبو امين .. لا تعجل على إخوانك .. فلا يعلم بظروفهم إلا الله .. وخصوصا منهم من قلص حصة المنتدى من الوقت في رمضان ليتفرغ للعبادة 🙂 ..

والحقيقة كانت لي محاولات في تعديل ملفك ولكن .. كلها لم تنجح وتحتاج لمزيد من الوقت .. وربما لتغييرات جذرية في الكود ولكن لم أتفرغ لها ..

نعم أخي @عمر ضاحى .. استخدم هذه الدالة لمبدعنا @ابو جودي 🙂 :

'==============================================( MnthName)
اسماء الشهور  الهجرى - العربى( الميلادى) - الانجليزيى( الميلادى) - اختصارالانجليزيى( الميلادى) - القبطى - السريانى'


'  .__   __.      ___      .___  ___.  _______      _______.     ______    _______    .___________. __    __   _______    .___  ___.   ______   .__   __. .___________. __    __       _______.
'  |  \ |  |     /   \     |   \/   | |   ____|    /       |    /  __  \  |   ____|   |           ||  |  |  | |   ____|   |   \/   |  /  __  \  |  \ |  | |           ||  |  |  |     /       |
'  |   \|  |    /  ^  \    |  \  /  | |  |__      |   (----`   |  |  |  | |  |__      `---|  |----`|  |__|  | |  |__      |  \  /  | |  |  |  | |   \|  | `---|  |----`|  |__|  |    |   (----`
'  |  . `  |   /  /_\  \   |  |\/|  | |   __|      \   \       |  |  |  | |   __|         |  |     |   __   | |   __|     |  |\/|  | |  |  |  | |  . `  |     |  |     |   __   |     \   \
'  |  |\   |  /  _____  \  |  |  |  | |  |____ .----)   |      |  `--'  | |  |            |  |     |  |  |  | |  |____    |  |  |  | |  `--'  | |  |\   |     |  |     |  |  |  | .----)   |
'  |__| \__| /__/     \__\ |__|  |__| |_______||_______/        \______/  |__|            |__|     |__|  |__| |_______|   |__|  |__|  \______/  |__| \__|     |__|     |__|  |__| |_______/
'
Public Function MnthName(ByVal dtAnyDate As Date, ByVal strLng As String)

'to call the Function
'To Hijri
'txtMonthNameHijri =MnthName(txtDate,"HJ")

'To Arabic
'txtMonthNameArabic =MnthName(txtDate,"Ar")

'To English
'txtMonthNameEnglish =MnthName(txtDate,"En")

'To English Short
'txtMonthNameEnglish =MnthName(txtDate,"EnShrt")

'To Coptic
'txtMonthNameCoptic =MnthName(txtDate,"Cpti")

'To Syriac
'txtMonthNameSyriac =MnthName(txtDate,"Syr")

Dim str01 As String
Dim str02 As String
Dim str03 As String
Dim str04 As String
Dim str05 As String
Dim str06 As String
Dim str07 As String
Dim Str08 As String
Dim Str09 As String
Dim Str10 As String
Dim Str11 As String
Dim Str12 As String

    If strLng = "HJ" Then
        str01 = ChrW("1605") & ChrW("1581") & ChrW("1585") & ChrW("1605")
        str02 = ChrW("1589") & ChrW("1601") & ChrW("1585")
        str03 = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604")
        str04 = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585")
        str05 = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") & ChrW("1610")
        str06 = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") & ChrW("1577")
        str07 = ChrW("1585") & ChrW("1580") & ChrW("1576")
        Str08 = ChrW("1588") & ChrW("1593") & ChrW("1576") & ChrW("1575") & ChrW("1606")
        Str09 = ChrW("1585") & ChrW("1605") & ChrW("1590") & ChrW("1575") & ChrW("1606")
        Str10 = ChrW("1588") & ChrW("1608") & ChrW("1575") & ChrW("1604")
        Str11 = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1593") & ChrW("1583") & ChrW("1577")
        Str12 = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1580") & ChrW("1577")
    
    ElseIf strLng = "Ar" Then
        str01 = ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1610") & ChrW("1585")
        str02 = ChrW("1601") & ChrW("1576") & ChrW("1585") & ChrW("1575") & ChrW("1610") & ChrW("1585")
        str03 = ChrW("1605") & ChrW("1575") & ChrW("1585") & ChrW("1587")
        str04 = ChrW("1571") & ChrW("1576") & ChrW("1585") & ChrW("1610") & ChrW("1604")
        str05 = ChrW("1605") & ChrW("1575") & ChrW("1610") & ChrW("1608")
        str06 = ChrW("1610") & ChrW("1608") & ChrW("1606") & ChrW("1610") & ChrW("1577")
        str07 = ChrW("1610") & ChrW("1608") & ChrW("1604") & ChrW("1610") & ChrW("1577")
        Str08 = ChrW("1571") & ChrW("1594") & ChrW("1587") & ChrW("1591") & ChrW("1587")
        Str09 = ChrW("1587") & ChrW("1576") & ChrW("1578") & ChrW("1605") & ChrW("1576") & ChrW("1585")
        Str10 = ChrW("1575") & ChrW("1603") & ChrW("1578") & ChrW("1608") & ChrW("1576") & ChrW("1585")
        Str11 = ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1605") & ChrW("1576") & ChrW("1585")
        Str12 = ChrW("1583") & ChrW("1610") & ChrW("1587") & ChrW("1605") & ChrW("1576") & ChrW("1585")
  
  ElseIf strLng = "En" Then
        str01 = "January"
        str02 = "February"
        str03 = "March"
        str04 = "April"
        str05 = "May"
        str06 = "June"
        str07 = "July"
        Str08 = "August"
        Str09 = "September"
        Str10 = "October"
        Str11 = "November"
        Str12 = "December"
  
  ElseIf strLng = "EnShrt" Then
        str01 = "Jan"
        str02 = "Feb"
        str03 = "Mar"
        str04 = "Apr"
        str05 = "May"
        str06 = "Jun"
        str07 = "Jul"
        Str08 = "Aug"
        Str09 = "Sep"
        Str10 = "Oct"
        Str11 = "Nov"
        Str12 = "Dec"
        
  ElseIf strLng = "Cpti" Then
        str01 = ChrW("1591") & ChrW("1608") & ChrW("1576") & ChrW("1577")
        str02 = ChrW("1571") & ChrW("1605") & ChrW("1588") & ChrW("1610") & ChrW("1585")
        str03 = ChrW("1576") & ChrW("1585") & ChrW("1605") & ChrW("1607") & ChrW("1575") & ChrW("1578")
        str04 = ChrW("1576") & ChrW("1585") & ChrW("1605") & ChrW("1608") & ChrW("1583") & ChrW("1577")
        str05 = ChrW("1576") & ChrW("1588") & ChrW("1606") & ChrW("1587")
        str06 = ChrW("1576") & ChrW("1572") & ChrW("1608") & ChrW("1606") & ChrW("1577")
        str07 = ChrW("1571") & ChrW("1576") & ChrW("1610") & ChrW("1576")
        Str08 = ChrW("1605") & ChrW("1587") & ChrW("1585") & ChrW("1609")
        Str09 = ChrW("1578") & ChrW("1608") & ChrW("1578")
        Str10 = ChrW("1576") & ChrW("1575") & ChrW("1576") & ChrW("1577")
        Str11 = ChrW("1607") & ChrW("1575") & ChrW("1578") & ChrW("1608") & ChrW("1585")
        Str12 = ChrW("1603") & ChrW("1610") & ChrW("1575") & ChrW("1607") & ChrW("1603")
  
  ElseIf strLng = "Syr" Then
        str01 = ChrW("1603") & ChrW("1575") & ChrW("1606") & ChrW("1608") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1575") & ChrW("1606") & ChrW("1610")
        str02 = ChrW("1588") & ChrW("1576") & ChrW("1575") & ChrW("1591")
        str03 = ChrW("1570") & ChrW("1584") & ChrW("1575") & ChrW("1585")
        str04 = ChrW("1606") & ChrW("1610") & ChrW("1587") & ChrW("1575") & ChrW("1606")
        str05 = ChrW("1571") & ChrW("1610") & ChrW("1575") & ChrW("1585")
        str06 = ChrW("1581") & ChrW("1586") & ChrW("1610") & ChrW("1585") & ChrW("1575") & ChrW("1606")
        str07 = ChrW("1578") & ChrW("1605") & ChrW("1608") & ChrW("1586")
        Str08 = ChrW("1570") & ChrW("1576")
        Str09 = ChrW("1571") & ChrW("1610") & ChrW("1604") & ChrW("1608") & ChrW("1604")
        Str10 = ChrW("1578") & ChrW("1588") & ChrW("1585") & ChrW("1610") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604")
        Str11 = ChrW("1578") & ChrW("1588") & ChrW("1585") & ChrW("1610") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1575") & ChrW("1606") & ChrW("1610")
        Str12 = ChrW("1603") & ChrW("1575") & ChrW("1606") & ChrW("1608") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604")
  End If
    
    MnthName = Choose(Format(dtAnyDate, "MM"), str01, str02, str03, str04, str05, str06, str07, Str08, Str09, Str10, Str11, Str12)
End Function
'----------------------------End-------------------------------------------------------------------------------------------

شخابيط وافكار : Date Functions - دوال التاريخ بطعم جديد وتحكم شامل

هذا من كرم اخلاقك ... شكرا على مرورك و ان شاء الله صوم مقبول و ذنب مغفور ..

ردك بالنسبة لنا يعتبر جوابا ... شكرا استاذي الفاضل

أبو امين · مايو 16, 2023

وضعت هذا الكود في موديل و استدعيته لكن لم يعطي اي اجابة : اظن انني اخطات في الاستدعا مع العلم انني استعملت المثال الموجود بالمنتدى

'==============================================( MnthName)
اسماء الشهور  الهجرى - العربى( الميلادى) - الانجليزيى( الميلادى) - اختصارالانجليزيى( الميلادى) - القبطى - السريانى'


'  .__   __.      ___      .___  ___.  _______      _______.     ______    _______    .___________. __    __   _______    .___  ___.   ______   .__   __. .___________. __    __       _______.
'  |  \ |  |     /   \     |   \/   | |   ____|    /       |    /  __  \  |   ____|   |           ||  |  |  | |   ____|   |   \/   |  /  __  \  |  \ |  | |           ||  |  |  |     /       |
'  |   \|  |    /  ^  \    |  \  /  | |  |__      |   (----`   |  |  |  | |  |__      `---|  |----`|  |__|  | |  |__      |  \  /  | |  |  |  | |   \|  | `---|  |----`|  |__|  |    |   (----`
'  |  . `  |   /  /_\  \   |  |\/|  | |   __|      \   \       |  |  |  | |   __|         |  |     |   __   | |   __|     |  |\/|  | |  |  |  | |  . `  |     |  |     |   __   |     \   \
'  |  |\   |  /  _____  \  |  |  |  | |  |____ .----)   |      |  `--'  | |  |            |  |     |  |  |  | |  |____    |  |  |  | |  `--'  | |  |\   |     |  |     |  |  |  | .----)   |
'  |__| \__| /__/     \__\ |__|  |__| |_______||_______/        \______/  |__|            |__|     |__|  |__| |_______|   |__|  |__|  \______/  |__| \__|     |__|     |__|  |__| |_______/
'
Public Function MnthName(ByVal dtAnyDate As Date, ByVal strLng As String)

'to call the Function
'To Hijri
'txtMonthNameHijri =MnthName(txtDate,"HJ")

'To Arabic
'txtMonthNameArabic =MnthName(txtDate,"Ar")

'To English
'txtMonthNameEnglish =MnthName(txtDate,"En")

'To English Short
'txtMonthNameEnglish =MnthName(txtDate,"EnShrt")

'To Coptic
'txtMonthNameCoptic =MnthName(txtDate,"Cpti")

'To Syriac
'txtMonthNameSyriac =MnthName(txtDate,"Syr")

Dim str01 As String
Dim str02 As String
Dim str03 As String
Dim str04 As String
Dim str05 As String
Dim str06 As String
Dim str07 As String
Dim Str08 As String
Dim Str09 As String
Dim Str10 As String
Dim Str11 As String
Dim Str12 As String

    If strLng = "HJ" Then
        str01 = ChrW("1605") & ChrW("1581") & ChrW("1585") & ChrW("1605")
        str02 = ChrW("1589") & ChrW("1601") & ChrW("1585")
        str03 = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604")
        str04 = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585")
        str05 = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") & ChrW("1610")
        str06 = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") & ChrW("1577")
        str07 = ChrW("1585") & ChrW("1580") & ChrW("1576")
        Str08 = ChrW("1588") & ChrW("1593") & ChrW("1576") & ChrW("1575") & ChrW("1606")
        Str09 = ChrW("1585") & ChrW("1605") & ChrW("1590") & ChrW("1575") & ChrW("1606")
        Str10 = ChrW("1588") & ChrW("1608") & ChrW("1575") & ChrW("1604")
        Str11 = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1593") & ChrW("1583") & ChrW("1577")
        Str12 = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1580") & ChrW("1577")
    
    ElseIf strLng = "Ar" Then
        str01 = ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1610") & ChrW("1585")
        str02 = ChrW("1601") & ChrW("1576") & ChrW("1585") & ChrW("1575") & ChrW("1610") & ChrW("1585")
        str03 = ChrW("1605") & ChrW("1575") & ChrW("1585") & ChrW("1587")
        str04 = ChrW("1571") & ChrW("1576") & ChrW("1585") & ChrW("1610") & ChrW("1604")
        str05 = ChrW("1605") & ChrW("1575") & ChrW("1610") & ChrW("1608")
        str06 = ChrW("1610") & ChrW("1608") & ChrW("1606") & ChrW("1610") & ChrW("1577")
        str07 = ChrW("1610") & ChrW("1608") & ChrW("1604") & ChrW("1610") & ChrW("1577")
        Str08 = ChrW("1571") & ChrW("1594") & ChrW("1587") & ChrW("1591") & ChrW("1587")
        Str09 = ChrW("1587") & ChrW("1576") & ChrW("1578") & ChrW("1605") & ChrW("1576") & ChrW("1585")
        Str10 = ChrW("1575") & ChrW("1603") & ChrW("1578") & ChrW("1608") & ChrW("1576") & ChrW("1585")
        Str11 = ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1605") & ChrW("1576") & ChrW("1585")
        Str12 = ChrW("1583") & ChrW("1610") & ChrW("1587") & ChrW("1605") & ChrW("1576") & ChrW("1585")
  
  ElseIf strLng = "En" Then
        str01 = "January"
        str02 = "February"
        str03 = "March"
        str04 = "April"
        str05 = "May"
        str06 = "June"
        str07 = "July"
        Str08 = "August"
        Str09 = "September"
        Str10 = "October"
        Str11 = "November"
        Str12 = "December"
  
  ElseIf strLng = "EnShrt" Then
        str01 = "Jan"
        str02 = "Feb"
        str03 = "Mar"
        str04 = "Apr"
        str05 = "May"
        str06 = "Jun"
        str07 = "Jul"
        Str08 = "Aug"
        Str09 = "Sep"
        Str10 = "Oct"
        Str11 = "Nov"
        Str12 = "Dec"
        
  ElseIf strLng = "Cpti" Then
        str01 = ChrW("1591") & ChrW("1608") & ChrW("1576") & ChrW("1577")
        str02 = ChrW("1571") & ChrW("1605") & ChrW("1588") & ChrW("1610") & ChrW("1585")
        str03 = ChrW("1576") & ChrW("1585") & ChrW("1605") & ChrW("1607") & ChrW("1575") & ChrW("1578")
        str04 = ChrW("1576") & ChrW("1585") & ChrW("1605") & ChrW("1608") & ChrW("1583") & ChrW("1577")
        str05 = ChrW("1576") & ChrW("1588") & ChrW("1606") & ChrW("1587")
        str06 = ChrW("1576") & ChrW("1572") & ChrW("1608") & ChrW("1606") & ChrW("1577")
        str07 = ChrW("1571") & ChrW("1576") & ChrW("1610") & ChrW("1576")
        Str08 = ChrW("1605") & ChrW("1587") & ChrW("1585") & ChrW("1609")
        Str09 = ChrW("1578") & ChrW("1608") & ChrW("1578")
        Str10 = ChrW("1576") & ChrW("1575") & ChrW("1576") & ChrW("1577")
        Str11 = ChrW("1607") & ChrW("1575") & ChrW("1578") & ChrW("1608") & ChrW("1585")
        Str12 = ChrW("1603") & ChrW("1610") & ChrW("1575") & ChrW("1607") & ChrW("1603")
  
  ElseIf strLng = "Syr" Then
        str01 = ChrW("1603") & ChrW("1575") & ChrW("1606") & ChrW("1608") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1575") & ChrW("1606") & ChrW("1610")
        str02 = ChrW("1588") & ChrW("1576") & ChrW("1575") & ChrW("1591")
        str03 = ChrW("1570") & ChrW("1584") & ChrW("1575") & ChrW("1585")
        str04 = ChrW("1606") & ChrW("1610") & ChrW("1587") & ChrW("1575") & ChrW("1606")
        str05 = ChrW("1571") & ChrW("1610") & ChrW("1575") & ChrW("1585")
        str06 = ChrW("1581") & ChrW("1586") & ChrW("1610") & ChrW("1585") & ChrW("1575") & ChrW("1606")
        str07 = ChrW("1578") & ChrW("1605") & ChrW("1608") & ChrW("1586")
        Str08 = ChrW("1570") & ChrW("1576")
        Str09 = ChrW("1571") & ChrW("1610") & ChrW("1604") & ChrW("1608") & ChrW("1604")
        Str10 = ChrW("1578") & ChrW("1588") & ChrW("1585") & ChrW("1610") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604")
        Str11 = ChrW("1578") & ChrW("1588") & ChrW("1585") & ChrW("1610") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1575") & ChrW("1606") & ChrW("1610")
        Str12 = ChrW("1603") & ChrW("1575") & ChrW("1606") & ChrW("1608") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604")
  End If
    
    MnthName = Choose(Format(dtAnyDate, "MM"), str01, str02, str03, str04, str05, str06, str07, Str08, Str09, Str10, Str11, Str12)
End Function
'----------------------------End-------------------------------------------------------------------------------------------

**Moosak** · مايو 16, 2023

طريقة الاستدعاء مكتوبة في الكود نفسه أخي أمين 🙂 :

'to call the Function
'To Hijri التاريخ الهجري
'txtMonthNameHijri =MnthName(txtDate,"HJ")

'To Arabic التاريخ بالعربي
'txtMonthNameArabic =MnthName(txtDate,"Ar")

'To English الإنجليزي
'txtMonthNameEnglish =MnthName(txtDate,"En")

'To English Short الإنجليزي المختصر
'txtMonthNameEnglish =MnthName(txtDate,"EnShrt")

'To Coptic القبطي
'txtMonthNameCoptic =MnthName(txtDate,"Cpti")

'To Syriac السرياني
'txtMonthNameSyriac =MnthName(txtDate,"Syr")

تسجيل الدخول

تصميم شاشة بها تواريخ كل يوم منفصل

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

أبو امين

AbuuAhmed

أبو امين

أبو امين

عمر ضاحى

Moosak

أبو امين

أبو امين

Moosak

Join the conversation

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

تصفح الموقع

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

Support

Important Information