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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم (/showthread.php?tid=36166)

اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم - كريم عبودي - 21-08-20

لدي datetimepicker
لدي label
اريد عند اختيار تاريخ يظهر لي اسم اليوم على ال label
مثلا عندما اختار تاريخ امس 19/08/2020 يظهر على ال label الاربعاء 
وعند اختيار تاريخ اليوم 20/08/2020 يظهر على ال label الخميس هل بالامكان المساعده لوسمحتم

RE: اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم - كريم عبودي - 21-08-20

تم الحل
في حدث التاريخ نضع هذا الكود
label. Text= datetimepicker. Value. Dayofweek. Tostring

لكن يظهر اسم اليوم بالانجليزي كيف احول اسم اليوم بالعربي

RE: اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم - tryold - 21-08-20

ضع فنكشن
كود :
Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
       Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))
End Function
 ثم في حدث DateTimePicker1 

كود :
 ("Label1.Text = ToHijra(DateTimePicker1.Value, "dddd


RE: اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم - كريم عبودي - 23-08-20

(21-08-20, 07:33 AM)tryold كتب : ضع فنكشن
كود :
Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
       Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))
End Function
 ثم في حدث DateTimePicker1 

كود :
 ("Label1.Text = ToHijra(DateTimePicker1.Value, "dddd
بارك الله فيك اخي
تمام يظهر اسم اليوم بالعربي لكن اذا غيرت التاريخ يرجع انجليزي ايش الحل

RE: اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم - اسامه الهرماوي - 23-08-20

السلام عليكم...
هذا الكود يقوم بإظهار اليوم حسب التاريخ, وحسب لغة الجهاز.
تفضل:
كود :
Dim DayName1 As String = System.Threading.Thread.CurrentThread.CurrentUICulture.DateTimeFormat.GetDayName(DateTime.Parse(Now.ToString("dd/MM/yyyy"), New Globalization.CultureInfo("ar-EG")).DayOfWeek)
       Label1.Text = DayName1
مع العلم أن هذا الجزء هو الذي يحدد اللغة والدولة ("ar-EG"). 
ف ar= العربية
و Eg= جمهورية مصر وكذلك Sa= السعودية...وهكذا.