|
|
Joined: Dec 1999
Posts: 30,867
Master Elite Member
|
Public Function IsValidDate(TestValue As String) As Boolean
'Purpose
' Used to determine if a specified string is a valid date.
'Parameters
' TestValue (String) = The string we're testing.
'Return (Boolean)
' Returns True if the specified value can be converted to a date.
' Returns False if the specified value can not be converted to a date.
'Version History
' 1.0 4/30/2006 4:45am Tested by Russ Tanner on VB6 Win2000
'---
'Initiate variables
Dim X As Date 'buffer
'Arm the error handler
On Error Resume Next
Err.Clear
'Test the value
X = CDate(TestValue)
'Return True if an error occured, False otherwise
IsValidDate = IIf(Err.Number = 0, True, False)
'Disarm the error handler
On Error GoTo 0
End Function
|
|
|
|
|
