[mrnooo2000]

جرب هذا الكود 

كود :

       Dim dateGregorian As Date = Me.DateTimePicker1.Value
       Dim hijri As New UmAlQuraCalendar()
       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.lblDayName.Text = NameDay

       '---إضافة عدد الايام للتاريخ الجديد
       Dim newdate As Date = DateTimePicker1.Value.AddDays(Val(txtAddDates.Text))
       lblDateAddDay.Text = newdate.ToString("yyyy/mm/dd")
       lblDayName.Text = newdate.ToString("ddd")