فحص شكل التاريخ

أستخدم هذا الكود في حدث LostFocus

Try

Dim date_new As Date

date_new = TextBox11.Text

TextBox11.Text = date_new.ToString("yyyy/MM/dd ")

Catch ex As Exception

MsgBox("أدخال التاريخ خطأ سوف يقوم النظام بتسجيل التاريخ الحالي")

TextBox11.Text = Date.Today.ToString("yyyy/MM/dd")

TextBox11.Focus()

End Try

شكرا اخي

حليتها بالشكل التالي

Dim x, y As String

x = My.Computer.Clock.GmtTime.Date.ToString

y = My.Computer.Clock.GmtTime.Date.ToString("MM/dd/yyyy") & " 12:00:00 AM"

If x = y Then

MsgBox("True")

Else : MsgBox("False")

End If

يعني بقوم بفحص شكل التاريخ الي في الجهاز مع الشكل لي بدنا اياه و برجعلنا اذا صحيح او لا

و شكرا