[DOX.1]

كيف  أقدر أتحكم في تغيير أعدادات تاريخ الجهاز أنه يكون ميلادي 
وبفورمات (yyyy/mm/dd)
 

---

شكراً هذا الحل 

كود :

Public Function convertoAD(hijri As String) As String

Dim h As New HijriCalendar()
Dim g As New GregorianCalendar(GregorianCalendarTypes.USEnglish)
Dim tempDate As DateTime = Convert.ToDateTime(hijri)
Dim date3 As New DateTime(tempDate.Year, tempDate.Month, tempDate.Day, h)
Dim ad As String = g.GetYear(date3).ToString() + "/" + g.GetMonth(date3).ToString() + "/" + g.GetDayOfMonth(date3).ToString()
Dim tempDate2 As DateTime = Convert.ToDateTime(ad)
ad = tempDate2.ToString("yyyy/MM/dd")
Return ad



End Function