السلام عليكم ورحمة الله وبركاته
لدي تاريخ هجري مكتبو في اداة نص
1443/01/07
المطلوب اسم اليوم بالعربي يظهر في مربع نص آخر
يتغير حسب التاريخ الذي يكتب في مربع النص الخاص بالتاريخ الهجري
وعليكم السلام ورحمة الله وبركاته
تفضل اخي
كود :
TextBoxX1.Text = Date.Today.ToString("dddd")
الف شكر اخي العزيز ابو انس
هذا الكود يعطي تاريخ اليوم فقط
والمطلوب في حال تغيير التاريخ في اداة مربع نص يظهر اسم اليوم حسب التاريخ المدخل
هذا الكود يعطي نتيجة ولكنها غير دقيقة حيث في الادارة
ME.txtReturnDate
يتم كتابة التاريخ يدوياً بالهجري ولكن لحظت انها تعمل بالميلادي
كيف احول التاريخ المكتوب في الاداة من هجري الى ميلادي على اداة label
كود :
Dim todaydate As String = String.Empty
Dim hc As New UmAlQuraCalendar()
Dim day As String = hc.GetDayOfWeek(Me.txtReturnDate.MyDate).ToString().ToLower().Trim()
Select Case day
Case "friday"
day = "الجمعة"
Exit Select
Case "saturday"
day = "السبت"
Exit Select
Case "sunday"
day = "الأحد"
Exit Select
Case "monday"
day = "الأثنين"
Exit Select
Case "tuesday"
day = "الثلاثاء"
Exit Select
Case "wednesday"
day = "الأربعاء"
Exit Select
Case "thursday"
day = "الخميس"
Exit Select
End Select
Me.txtDaysName.Text = day
السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل هذا الكود ووظفه كما تريد
كود :
Dim MyDate As Date = CDate(TextBox1.Text)
MsgBox(MyDate.ToString("dddd"))
وان اردت اظهار اسم اليوم بالعربي استبدل السطر الثاني بهذا
كود :
MsgBox(MyDate.ToString("dddd", New CultureInfo("ar-AE")))
واستدعي المكتبة Imports System.Globalization
الف شكر اخي العيزيز ابراهيم
تم تجبة الكود
كود :
MsgBox(MyDate.ToString("dddd", New CultureInfo("ar-AE")))
ولكن انا اكتب التاريخ في اداة بالهجري 09\01\1443
الكود يظهر الاسم بالعربي ولكنه معتبر التاريخ 09\01\1443 ميلادي
كيف احول هذا التاريخ الى الميلادي
ليكون اسم اليوم مطابق لنفس اليوم المطلوب بالهجري
السلام عليكم ورحمة الله وبركاته
اخي الكريم هل تدخل دائما التاريخ الهجري ام ممكن تدخل تاريخ ميلادي ايضا؟
اذا كان الاثنين فهنا يجب ان نشير الى نوع التاريخ هجري ام ميلادي بوساطة CheckBox
وان كان هجريا فيجب تحويله الى ميلادي ليجلب اسم اليوم
وان كان ميلاديا يجلب اسم اليوم
تفضل المثال