Public Function ValidateDate(ByVal thisDate As Variant) As Boolean
On Error GoTo errTrap
'Set the default return value to True
ValidateDate = True
'Check that a valid date was entered
If IsDate(thisDate) = False Then
MsgBox "Please enter a valid date!", vbOKOnly
ValidateDate = False
Exit Function
End If
'Check that the date entered is greater than today
If CDate(thisDate) <= Date Then
'MsgBox "Please enter a date greater than today!", vbOKOnly
ValidateDate = False
End If
'Check that the date entered is not out of range, entered incorrectly or too far into the future
If CDate(thisDate) > #1/1/2010# Then
MsgBox "Please check the date entered!", vbOKOnly, "Date Out Of Range"
ValidateDate = False
End If
'Enter other validation rules here.....
''''IE: disallow weekends
If Weekday(CDate(thisDate)) = 7 Or Weekday(CDate(thisDate)) = 1 Then
MsgBox "Weekends Not Premitted", vbOKOnly
ValidateDate = False
End If
Exit Function
errTrap:
MsgBox Err.Number & Err.Description
End Function