Esse código visa implementar um método puro .NET semelhante ao isNumeric e isDate do vb 6 para que possa ser utilizados em seus projetos .Net. Estamos utilizando o método TryParse que retorna true quando a conversão para o tipo especifico seja possível e false quando não for possível.
Public Shared Function IsNumeric(ByVal Expression As Object) As Boolean
Dim isNum As Boolean
Dim retNum As Double
isNum =
Double.TryParse(Convert.ToString(Expression), System.Globalization.NumberStyles.Any, System.Globalization.NumberFormatInfo.InvariantInfo, retNum)Return isNum End Function
Public Shared Function IsDate(ByVal Expression As Object) As Boolean Dim _isDate As Boolean Dim retDate As DateTime
_isDate = DateTime.TryParse(Convert.ToString(Expression), retDate)
Return _isDate End Function
Arquitetura e Desenvolvimento de Software 