[RaggiTech]

كاتب الموضوع : جهاد العريقي

كود :

Public Function IsDate(ByVal DateIn As String) As Boolean
Dim datDateTime As DateTime
Dim blnIsDate As Boolean = True
Try
' Attempt to parse date

datDateTime = DateTime.Parse(DateIn)
Catch e As FormatException
' Error parsing, return False
blnIsDate = False
End Try
Return blnIsDate
End Function


لا تبخلو علينا بدعائكم