13-07-23, 06:55 AM
أبووسم هذا تعديل على الكود يتم فيه تحويل التاريخ باستخدام التيكست بوكس 1 فقط (في الحقيقه الكود منقول)
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'd1.Value = CDate(TextBox1.Text)
Threading.Thread.CurrentThread.CurrentCulture = Globalization.CultureInfo.CreateSpecificCulture("ar-sa")
Dim d = CDate(TextBox1.Text)
Threading.Thread.CurrentThread.CurrentCulture = Globalization.CultureInfo.CreateSpecificCulture("ar-eg")
TextBox1.Text = d.ToString("dd/MM/yyyy")
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
'TextBox2.Text = d1.Value.ToShortDateString
Threading.Thread.CurrentThread.CurrentCulture = Globalization.CultureInfo.CreateSpecificCulture("ar-eg")
Dim d = CDate(TextBox1.Text)
Threading.Thread.CurrentThread.CurrentCulture = Globalization.CultureInfo.CreateSpecificCulture("ar-sa")
TextBox1.Text = d.ToString("dd/MM/yyyy")
End Sub