06-02-17, 03:08 AM
(05-02-17, 08:12 PM)عبد الرحمن كتب : جرب هذا الكودالله يحفظك اخي ويبارك فيك ان يجعلها لك في مسزان الحسنات
Try
TextBox2.Text = ""
Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ar-eg")
Dim dt = CDate(TextBox1.Text)
TextBox2.Text = dt.ToString("dd/MM/yyyy HH:mms")
Catch ex1 As Exception
End Try
واذا تتعامل مع الهجري غير ar-eg بدالها ar-sa
ترى السمايل الي طلع في الكود هو نقطتين : وبعدها حرف s
جربت اكتب 1/2/2017 10:2:5 pm
طلع 01/02/2017 22:02:05
وان يجعل ايامك كلها سعادة
شكرا لك