[العيدروس]

السلام عليكم .اخواني بارك الله فيكم سلفا كيف أضبط التاريخ الميلادي ليظهر بالتاكستبوكس 2 بهذا الشكل من يمين الى يسار
2017-10-31
و التاريخ الهجري يظهر بااكستبوكس 1 بهذا الشكل
الثلاثاء : 11 صفر 1439
شكرا جزيلا

كود :

Public Class Form1
   Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
       Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))
   End Function
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       TextBox1.Text = ToHijra(Now, "d dddd, MMMM yyyy")
 End Sub
 
   Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
       TextBox2.Text = = Format(Date, "yyyy - mm - dd ")
     End Sub
End Class