[Microformt]

(13-11-15, 06:24 PM)محمد العبيدي كتب : اخي يمكنك استخدام الكود التالي

PHP كود :

Private Sub Text1_LostFocus()
      On Error Resume Next
      Dim T As Date
      T = CDate(Text1.Text)
      If Err Then
            MsgBox "Error"
            Err.Clear
      End If
End Sub 


اخي العزيز
 إجابة غير موفقه