Public Class Tester
Public Shared Sub Main
Dim theData As String = Nothing
Dim result As New System.Text.StringBuilder
' ----- Format nothing.
result.AppendLine(String.Format( _
"IsNumeric({0}) ... {1}", theData, IsNumeric(theData)))
result.AppendLine(String.Format( _
"IsDate({0}) ... {1}", theData, IsDate(theData)))
result.AppendLine(String.Format( _
"IsNothing({0}) ... {1}", theData, IsNothing(theData)))
result.AppendLine()
' ----- Format a number in a string.
theData = "-12.345"
result.AppendLine(String.Format( _
"IsNumeric({0}) ... {1}", theData, IsNumeric(theData)))
result.AppendLine(String.Format( _
"IsDate({0}) ... {1}", theData, IsDate(theData)))
result.AppendLine(String.Format( _
"IsNothing({0}) ... {1}", theData, IsNothing(theData)))
result.AppendLine()
' ----- Format a date in a string.
theData = "July 17, 2007"
result.AppendLine(String.Format( _
"IsNumeric({0}) ... {1}", theData, IsNumeric(theData)))
result.AppendLine(String.Format( _
"IsDate({0}) ... {1}", theData, IsDate(theData)))
result.Append(String.Format( _
"IsNothing({0}) ... {1}", theData, IsNothing(theData)))
Console.WriteLine(result.ToString())
End Sub
End Class
IsNumeric() ... False
IsDate() ... False
IsNothing() ... True
IsNumeric(-12.345) ... True
IsDate(-12.345) ... False
IsNothing(-12.345) ... False
IsNumeric(July 17, 2007) ... False
IsDate(July 17, 2007) ... True
IsNothing(July 17, 2007) ... False