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
Please SUBSCRIBE to get new articles directly into your Email inbox!
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
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق