+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24721)
اظهار اسم اليوم حسب التاريخ - aftfm - 30-04-18
السلام عليكم ورحمة الله وبركاته
لدي اداة DateTextBox
عند اختيار التاريخ من خلالها يظهر التاريخ على اداة Label
المطلوب اسم اليوم حسب التاريخ الواضح في اداة الـ Label
مع العلم ان التاريخ بالهجري
RE: اظهار اسم اليوم حسب التاريخ - عبدالله الدوسري - 30-04-18
وعليكم السلام ورحمة الله وبركاتة
كود :
Dim Dt As Date = CType(Me.Label1.Text, Date)
Me.Label2.Text = Dt.ToString("dddd")RE: اظهار اسم اليوم حسب التاريخ - aftfm - 30-04-18
جزاك الله الف خير
لكن هذا بيعطيني بيانات على اساس ان هذ التاريخ ميلادي
والتاريخ لدي بالهجري
RE: اظهار اسم اليوم حسب التاريخ - عبدالله الدوسري - 30-04-18
أخي aftfm
ضع الكود الذي تستخدمة انت لمعرفة كيف تستخدم التاريخ وإعطائك الكود المناسب.
ولكن على كل حال إذا كان لديك متغير من نوع تاريخ استخدم الكود هذا بعد اسم المتغير ليرجع لك اسم اليوم
كود :
.ToString("dddd")بغض النظر نوع التقويم إذا كان هجري أو ميلادي أو شمسي
RE: اظهار اسم اليوم حسب التاريخ - aftfm - 30-04-18
الف شكر بارك الله فيك
تم الاستفادة من الكود الذي وضعته مع قليل من التغيير.
وهذا الكود المستخدم والحمد لله
كود :
Dim dateGregorian as Date = Me.DateTimePicker1.Text
Dim hijri As New HijriCalender()
Dim Y as String = dateGregorian .Year
Dim M as String = dateGregorian .Month
Dim D as String = dateGregorian .Day
Dim dateHijri as Date = New Date(Y, M, D, hijri)
Dim NameDay as String = dateHijri.ToString("dddd")
me.lblDay.Text = NameDay