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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=39309)

اظهار اسم اليوم - aftfm - 15-08-21

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

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

1443/01/07

المطلوب اسم اليوم بالعربي يظهر في مربع نص آخر

يتغير حسب التاريخ الذي يكتب في مربع النص الخاص بالتاريخ الهجري

RE: اظهار اسم اليوم - ابو انس - 15-08-21

وعليكم السلام ورحمة الله وبركاته
تفضل اخي
كود :
TextBoxX1.Text = Date.Today.ToString("dddd")


RE: اظهار اسم اليوم - aftfm - 15-08-21

الف شكر اخي العزيز ابو انس

هذا الكود يعطي تاريخ اليوم فقط
والمطلوب في حال تغيير التاريخ في اداة مربع نص يظهر اسم اليوم حسب التاريخ المدخل
هذا الكود يعطي نتيجة ولكنها غير دقيقة حيث في الادارة 
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


RE: اظهار اسم اليوم - ابراهيم ايبو - 15-08-21

السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل هذا الكود ووظفه كما تريد
كود :
Dim MyDate As Date = CDate(TextBox1.Text)
       MsgBox(MyDate.ToString("dddd"))
وان اردت اظهار اسم اليوم بالعربي استبدل السطر الثاني بهذا
كود :
MsgBox(MyDate.ToString("dddd", New CultureInfo("ar-AE")))
واستدعي المكتبة Imports System.Globalization

RE: اظهار اسم اليوم - aftfm - 17-08-21

الف شكر اخي العيزيز ابراهيم

تم تجبة الكود


كود :
MsgBox(MyDate.ToString("dddd", New CultureInfo("ar-AE")))


ولكن انا اكتب التاريخ في اداة بالهجري  09\01\1443

الكود يظهر الاسم بالعربي ولكنه معتبر التاريخ 09\01\1443 ميلادي 

كيف احول هذا التاريخ الى الميلادي

 ليكون اسم اليوم مطابق لنفس اليوم المطلوب بالهجري

RE: اظهار اسم اليوم - ابراهيم ايبو - 17-08-21

السلام عليكم ورحمة الله وبركاته
اخي الكريم هل تدخل دائما التاريخ الهجري ام ممكن تدخل تاريخ ميلادي ايضا؟
اذا كان الاثنين فهنا يجب ان نشير الى نوع التاريخ هجري ام ميلادي بوساطة CheckBox
وان كان هجريا فيجب تحويله الى ميلادي ليجلب اسم اليوم
وان كان ميلاديا يجلب اسم اليوم
تفضل المثال