/ Snippet Library - View Code

Snippet details

ID: 201

Viewed: 1230

Added: 2002-04-29

Version:

Snippets in this catagory
Show Printable Version

Check for valid 4 digit year date

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight AllPublic Function ValidDate(MDate) 'Purpose: Check for 4 digit yyyy DATE 'Input: String from text box 'Output: True or False 'Default is false ValidDate = False 'Exit if length less than "m/d/yyyy" If Len(MDate) < 8 Then Exit Function 'Exit if not a valid date wrong If IsDate(MDate) = False Then Exit Function 'Exit if not ending or starting with "yyyy" Dim StartDate As String Dim EndDate As String EndDate = Right(MDate, 4) StartDate = Left(MDate, 4) If ValidChar(EndDate, "0123456789") = False And _ ValidChar(StartDate, "0123456789") = False Then Exit Function 'Set to true if it passes all these tests! ValidDate = True End Function
Code
Highlight Allnone

No Reviews to show