hi everybody, Now im doing one project.In that I have to insert the Date Of Birth field into the db table.For that, if anybody enter the DOB field,I have to check whether it is in the format of "MM/DD/YYYY" or not.I have written the code for that is - If text1.text<>Format$(MM/DD/YYYY) Then
-
Msgbox"DOB Should Be The Format Of MM/DD/YYYY"
But it hasn't succeeded. So kindly reply me anyone quickly.
The
Format() function is used to take a value (number, date, etc) and
convert it to a specific format. So for example, you could take a date and use Format() to display it as MM/DD/YYYY. You can't
compare it in this way.
There are numerous ways you can enforce the correct input (for example using a masked edit control, or separate DD, MM and YYYY textboxes, or dropdown lists). Once you have the input, you might need to split the text on the slashes and check the three parts. Or, here's a sample of a very quick and rough date-check routine which might be some help...
- Dim S As String, D As Date, Ok As Boolean
-
S = InputBox("Well?")
-
If IsDate(S) Then
-
D = DateValue(S)
-
If S = Format(D, "MM/DD/YYYY") Then
-
Ok = True
-
End If
-
End If
-
If Not Ok Then
-
MsgBox "That's not MM/DD/YYYY format"
-
End If
98
