كيف أقدر أتحكم في تغيير أعدادات تاريخ الجهاز أنه يكون ميلادي
وبفورمات (yyyy/mm/dd)
شكراً هذا الحل
وبفورمات (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