اسم اليوم الحالى في النموذج

[husseinharby]

السلام عليكم

اريد مربع نص في النموذج يظهر به اسم اليوم الحالى بالعربى

مثل الاربعاء - الخميس

[ناقل]

32 دقائق مضت, husseinharby said:

السلام عليكم

اريد مربع نص في النموذج يظهر به اسم اليوم الحالى بالعربى

مثل الاربعاء - الخميس

استخدم هذا .....

Me.a = WeekdayName(Weekday(Date), False)

أو .....

Me.a = Format(Date, "ddd")

 

[ابو جودي]

ضع الكود الاتى فى موديول 

Public Function DayAr(dtDate)

Dim strSat    As String
Dim strSun    As String
Dim strMon    As String
Dim strTues   As String
Dim strWed    As String
Dim strThurs  As String
Dim strFri    As String

strSat = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578")
strSun = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1581") & ChrW("1583")
strMon = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1606") & ChrW("1610") & ChrW("1606")
strTues = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569")
strWed = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569")
strThurs = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587")
strFri = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1577")

  DayAr = Choose(Weekday(dtDate), strSun, strMon, strTues, strWed, strThurs, strFri, strSat)

End Function

يمكنك الان الحصول على اسم اليوم بالعربية لاى تاريخ من خلال استدعاء الروتين السابق باحد الاكواد الاتية

- اسم اليوم الحالى من التاريخ الحالى

DayAr(Date())

 اسم اليوم بناء على تاريخ ما 
 

DayAr([[Fild Date Name])

 

تم تعديل أكتوبر 26, 2021 بواسطه ابا جودى

[ابو جودي]

DayuNameArabic.mdb

[husseinharby]

@ابا جودى الشكر والتقدير والامتنان لاستاذنا الجليل

[ابو جودي]

في ٢٦‏/١٠‏/٢٠٢١ at 14:40, husseinharby said:

@ابا جودى الشكر والتقدير والامتنان

جزاكم الله خيرا 

[husseinharby]

الاخ الغالي @ابا جودىماذا ان اردت تغيير التاريخ الي الانجليزية

[د.كاف يار]

في ٢٦‏/١٠‏/٢٠٢١ at 20:03, ابا جودى said:

ضع الكود الاتى فى موديول 

Public Function DayAr(dtDate)

Dim strSat    As String
Dim strSun    As String
Dim strMon    As String
Dim strTues   As String
Dim strWed    As String
Dim strThurs  As String
Dim strFri    As String

strSat = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578")
strSun = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1581") & ChrW("1583")
strMon = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1606") & ChrW("1610") & ChrW("1606")
strTues = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569")
strWed = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569")
strThurs = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587")
strFri = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1577")

  DayAr = Choose(Weekday(dtDate), strSun, strMon, strTues, strWed, strThurs, strFri, strSat)

End Function

يمكنك الان الحصول على اسم اليوم بالعربية لاى تاريخ من خلال استدعاء الروتين السابق باحد الاكواد الاتية

- اسم اليوم الحالى من التاريخ الحالى

DayAr(Date())

 اسم اليوم بناء على تاريخ ما 
 

DayAr([[Fild Date Name])

 

ماشاء الله لا قوة إلا بالله 

امسكوا الخشب يا عالم المعلم ابو جودي وصل

كلمة فنان قليلة فأنت فعلا استاذ  و رئيس قسم و عميد 

الله يحفظك يارب

[husseinharby]

عذرا @ابا جودى @د.كاف يارلكن سؤالى ماذا ان اردت تغيير لغة التاريخ الى الانجليزية وليس العربية

تم تعديل أكتوبر 27, 2021 بواسطه husseinharby

[د.كاف يار]

2 دقائق مضت, husseinharby said:

عذرا @ابا جودى @د.كاف يارلكن سؤالى ماذا ان اردت تغيير لغة التاريخ الى الانجليزية وليس العربية

ايسر الطرق و اسهلها من الإعدادات الإقليمية لجهازك 

 

[أبو عبدالله الحلوانى]

السلام عليكم ورحمة الله 

جزا الله أساتذتنا خيرا 

من وجهة نظري ان هذا الكود القصير يفي بالغرض ويستخرج اسم اليوم من التاريخ وسيظهر اسم اليوم باللغة الاقليمية للجهاز سواء كانت اعدادات اللغة عربية او اجنبية

Format(Filed_date,"dddd")
'Replace the filed_date with what youer filed date name

واثمن كل جهود اساتذتنا 

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

Public Function DayName(dtDate,lng)

Dim strSat    As String
Dim strSun    As String
Dim strMon    As String
Dim strTues   As String
Dim strWed    As String
Dim strThurs  As String
Dim strFri    As String

if lng=0 then
  strSat = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578")
  strSun = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1581") & ChrW("1583")
  strMon = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1606") & ChrW("1610") & 	 ChrW("1606")
  strTues = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569")
  strWed = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569")
  strThurs = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587")
  strFri = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1577")
else
  strSat = Saturday
  strSun = Sunday
  strMon = Monday
  strTues = Tuesday
  strWed = Wednesday
  strThurs = Thursday
  strFri =Friday
end if

  DayAr = Choose(Weekday(dtDate), strSun, strMon, strTues, strWed, strThurs, strFri, strSat)

End Function

وتستدعي الدالة بهذا الشكل

me.d = DayName(date_filed,0)  '-> For Arabic
me.d = DayName(date_filed,1)  '-> for English

والسلام

[ابو جودي]

1 ساعه مضت, د.كاف يار said:

ماشاء الله لا قوة إلا بالله 

امسكوا الخشب يا عالم المعلم ابو جودي وصل

كلمة فنان قليلة فأنت فعلا استاذ  و رئيس قسم و عميد 

الله يحفظك يارب

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

[ابو جودي]

استاذى الجليل ومعلمى القدير واخى الحبيب الاستاذ @أبو عبدالله الحلوانى 

بعد جزاكم الله خيرا 

هذا المرفق على طريقتكم سلمتم ودمتم لنا وبارك الله لنا فيكم وكل اساتذتنا العظماء

 

DayuNameArabic. & English.mdb

[أبو عبدالله الحلوانى]

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

بعد جزاكم الله خيرا 

هذا المرفق على طريقتكم

وجزاكم الله خيرا 

بل هي طريقكتم وفكرتكم بالأساس؛  وعدلت فيها بدون استإذان لعلمي بعدم ممانعتم من ذلك - فبحر جودكم يأبي عليكم البخل بعلم -

وبعد فقد أوحشتموني وأوحشني التواصل معكم فقد شغلتنا عنكم مشاغل الحياة ولكنكم لم تغيبو عن الــ 💚 

حفظكم الله ورعاكم وسدد خطاكم

[ابو جودي]

4 دقائق مضت, أبو عبدالله الحلوانى said:

وجزاكم الله خيرا 

بل هي طريقكتم وفكرتكم بالأساس؛  وعدلت فيها بدون استإذان لعلمي بعدم ممانعتم من ذلك - فبحر جودكم يأبي عليكم البخل بعلم -

وبعد فقد أوحشتموني وأوحشني التواصل معكم فقد شغلتنا عنكم مشاغل الحياة ولكنكم لم تغيبو عن الــ 💚 

حفظكم الله ورعاكم وسدد خطاكم

العفو منكم استاذى الجليل هذا بعد فضل رب العباد سبحانه وتعالى فضلكم وكل اساتذتى العظماء الذين اتعلم منهم وعلى ايديهم فلو لا الله سبحانه تعالى ثم انتم ما علمت ولا دريت
ويعلم الله لكم وكل اساتذتى العظماء مكان فوق رأسي وتتربعون بداخل قلبى اسال الله ان لايحرمنا منكم ومن عطائكم

وحتى تكتمل الفائدة خطر على بالى عمل الكود الاتى بنفس الفكرة للارقام 

Public Function MyNo(ByVal strNo As String, ByVal strLng As String)
If strLng = "Ar" Then
    strNo = Replace(strNo, "0", ChrW(1632))
    strNo = Replace(strNo, "1", ChrW(1633))
    strNo = Replace(strNo, "2", ChrW(1634))
    strNo = Replace(strNo, "3", ChrW(1635))
    strNo = Replace(strNo, "4", ChrW(1636))
    strNo = Replace(strNo, "5", ChrW(1637))
    strNo = Replace(strNo, "6", ChrW(1638))
    strNo = Replace(strNo, "7", ChrW(1639))
    strNo = Replace(strNo, "8", ChrW(1640))
    strNo = Replace(strNo, "9", ChrW(1641))
    MyNo = strNo
ElseIf strLng = "Ar" Then
    strNo = Replace(strNo, ChrW(1632), ChrW(48))
    strNo = Replace(strNo, ChrW(1633), ChrW(49))
    strNo = Replace(strNo, ChrW(1634), ChrW(50))
    strNo = Replace(strNo, ChrW(1635), ChrW(51))
    strNo = Replace(strNo, ChrW(1636), ChrW(52))
    strNo = Replace(strNo, ChrW(1637), ChrW(53))
    strNo = Replace(strNo, ChrW(1638), ChrW(54))
    strNo = Replace(strNo, ChrW(1639), ChrW(55))
    strNo = Replace(strNo, ChrW(1640), ChrW(56))
    strNo = Replace(strNo, ChrW(1641), ChrW(57))
    MyNo = strNo
End If
End Function

وهذا المرفق 

DayuNameArabic. & English (1).mdb

[husseinharby]

جزاكم الله خيرا اساتذتى الكرام

ونفعكم الله بعلمكم