Search for string with forward slashes in numeric date format

[Larissalle]

I'm trying to do a search in a string that has a numeric date "m/d/yyyy." I just want to know if the string contains a date in this or similar numeric format such as "mm/dd/yyyy." I don't need to retrieve the date itself. I am able to use the following simple search to find occurrences of one slash. I am hoping that there is a way to search on /#/ where # is a numeric wildcard, but even a nonnumeric wildcard will probably pick up most of the instances I'm looking for. Or, is there a way to search for the date formats above? If so, I haven't been able to find them.

What I currently have: =IF(ISERROR(FIND("/",G28)),0,1)

What I would like: =IF(ISERROR(FIND("*/#/*",G28)),0,1) or "m/d/yyyy" or "mm/dd/yyyy"

Can someone help?

 

[JoeMo]

This UDF should do what you want after you install it. It will search the string in a cell and return "Date_Text Format" if the string contains a date having the format m/d/yyyy or mm/dd/yyyy and is a legitimate date. The UDF can be used like any worksheet function (see example below- notice that O21 does not contain a legitimate date).

Excel Workbook
	O	P
19	5/25/2015	Date_Text Format
20	abc/def/2015	No Date_Text Format
21	05/32/1999	No Date_Text Format
22	Joe CV 1/31/2015 CAST	Date_Text Format
23	Joe CV 01/3/2015 CAST	Date_Text Format
Sheet3

To install the code:
1. With your workbook active press Alt and F11 keys. This will open the VBE window.
2. In the project tree on the left of the VBE window, find your project and click on it.
3. On the VBE menu: Insert>Module
4. Copy the code from your browser window and paste it into the white space in the VBE window.
5. Close the VBE window and Save the workbook. If you are using Excel 2007 or a later version do a SaveAs and save it as a macro-enabled workbook (.xlsm file extension).
6. Press Alt+F8 keys to run the code
7. Make sure you have enabled macros whenever you open the file or the code will not run.

Function IsDateFormat(S As String)
'Determines if a text entry is a date formatted as text in the format mm/dd/yyyyy or m/d/yyyy
With CreateObject("VBSCript.regexp")
    .Global = True
    .Pattern = "\b(0?([1-9]|10|11|12))\/(0?[1-9]|[1-2][0-9]|3[0-1])\/\d{4}\b"
    If .test(S) Then
        IsDateFormat = "Date_Text Format"
    Else
        IsDateFormat = "No Date_Text Format"
    End If
End With
End Function