[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته


هناك عدة نقاط

أولاً وجدت في التعليق الذي في المثال ".p.m" والمفروض بدون نقاط "pm"

ثانياً لاحظت التاريخ موجود بالصيغتين معا 12 و24 بدلالة pm والأحرف الكبيرة للساعة HH

ثالثاً الأمر ParseExact حساس جداً حتى بوجود مسافة زائدة، فهو يقوم بمطابقة تركيبتين أحداهما تكون المتغير والآخر الـ Format التي يفترض أن المتغير متطابق معها.

كود :

أعتقد بهذا يتضح معنى التطابق
"1999-09-01 21:34"
"    -  -     :  "
"yyyy-MM-dd HH:mm"

رابعاً الاعدادات الاقليمية ضرورية في بعض الدول ولا تترك Nothing

أخيراً أنظر هذا المثال (بعد إزالة tt الخاص بنظام 12 والاكتفاء بظام 24 من المتغير MyString) (يجب التأكد من تركيبتك الخاصة من حيث yyyy-MM-dd وليست yyyy/MM/dd للتاريخ)

كود :

Dim MyString As String
Dim MyDate As Date



MyString = "1999-09-01 21:34"
MyDate = Date.ParseExact(MyString, "yyyy-MM-dd HH:mm", New Globalization.CultureInfo("en-us"))

'Me.TextBox1.Text = MyDate.ToString(New Globalization.CultureInfo("en-us"))
Me.TextBox1.Text = MyDate.ToString("yyyy/MM/dd hh:mm tt", New Globalization.CultureInfo("en-us")) ' هنا حددت عرض الوقت بنظام 12



MyString = "1434-09-01 21:34"
MyDate = Date.ParseExact(MyString, "yyyy-MM-dd HH:mm", New Globalization.CultureInfo("ar-sa"))

'Me.TextBox2.Text = MyDate.ToString(New Globalization.CultureInfo("ar-sa"))
Me.TextBox2.Text = MyDate.ToString("yyyy/MM/dd hh:mm tt", New Globalization.CultureInfo("ar-sa")) ' هنا حددت عرض الوقت بنظام 12

جرب أن تضيف مسافة في آخر المتغير MyString أو تضع / بدلا من - وانظر ماذا يحدث




السلام عليكم ورحمة الله وبركاته