[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