[Osama_Ghareeb]

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

تفضل الأمر التالي :

كود :

Dim S As String = Now.ToShortDateString()
        Dim D As Date = Date.ParseExact(S, "dd/MM/yyyy", Nothing)
        If S <> D Then
             MsgBox("Wrong Format")
        End If

بالتوفيق