[aftfm]

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


لدي اداة DateTextBox

عند اختيار  التاريخ من خلالها يظهر التاريخ على اداة Label

المطلوب اسم اليوم حسب التاريخ الواضح في اداة الـ Label

مع العلم ان التاريخ بالهجري

[عبدالله الدوسري]

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

كود :

Dim Dt As Date = CType(Me.Label1.Text, Date)
Me.Label2.Text = Dt.ToString("dddd")

[aftfm]

جزاك الله الف خير

لكن هذا بيعطيني بيانات على اساس ان هذ التاريخ ميلادي

والتاريخ لدي بالهجري

[عبدالله الدوسري]

أخي aftfm
ضع الكود الذي تستخدمة انت لمعرفة كيف تستخدم التاريخ وإعطائك الكود المناسب.


ولكن على كل حال إذا كان لديك متغير من نوع تاريخ استخدم الكود هذا بعد اسم المتغير ليرجع لك اسم اليوم

كود :

.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