السلام عليكم ورحمة الله وبركاته
لدي اداة DateTextBox
عند اختيار التاريخ من خلالها يظهر التاريخ على اداة Label
المطلوب اسم اليوم حسب التاريخ الواضح في اداة الـ Label
مع العلم ان التاريخ بالهجري
وعليكم السلام ورحمة الله وبركاتة
كود :
Dim Dt As Date = CType(Me.Label1.Text, Date)
Me.Label2.Text = Dt.ToString("dddd")
جزاك الله الف خير
لكن هذا بيعطيني بيانات على اساس ان هذ التاريخ ميلادي
والتاريخ لدي بالهجري
أخي aftfm
ضع الكود الذي تستخدمة انت لمعرفة كيف تستخدم التاريخ وإعطائك الكود المناسب.
ولكن على كل حال إذا كان لديك متغير من نوع تاريخ استخدم الكود هذا بعد اسم المتغير ليرجع لك اسم اليوم
بغض النظر نوع التقويم إذا كان هجري أو ميلادي أو شمسي
الف شكر بارك الله فيك
تم الاستفادة من الكود الذي وضعته مع قليل من التغيير.
وهذا الكود المستخدم والحمد لله
كود :
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