[احمد 2021]

السلام عليكم


اريد من الاخوة بالمنتدي طريقة فعالة لتغير تاريخ اداة DateTimePicker الي التاريخ الميلادي حتي لو كان تاريخ الجهاز هجري .

الطريقة تكون مباشرة ان امكن 
وليس الحل البديل التحايل واضافة تيكست وتغير التاريخ من الاداة الية ولكن اريد طريقة مباشرة افضل ..

حاولت بالطريقة دية ولا شيء تظل الاداة بالتاريخ الهجري تاريخ الجهاز 

كود :

'//1
       Dim Ar As CultureInfo = New CultureInfo("ar-eg") '
       Thread.CurrentThread.CurrentCulture = Ar
       Ar.DateTimeFormat.Calendar = New GregorianCalendar

محاولة اخري

كود :

'/// 2
       Dim ci As CultureInfo = New CultureInfo("ar-eg")
       Dim info As DateTimeFormatInfo = ci.DateTimeFormat
       DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
       DateTimePicker1.CustomFormat = info.ShortDatePattern

محاولة اخري لجعل التاريخ ميلادي

كود :

 Function Tomiladeg(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
       Return gDate.ToString(format, New Globalization.CultureInfo("ar-EG"))
   End Function

 DateTimePicker1.Value = Convert.ToDateTime(Tomiladeg(Now, "dd-MM-yyyy"))