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