Free for PREMIUM members
Public Function ContainsDate(ByVal Text As String) As Boolean
Dim Parts As Variant
Dim Item As Integer
Dim Found As Boolean
Parts = Split(Text & " ", " ")
For Item = LBound(Parts) To UBound(Parts)
If IsDate(Parts(Item)) Then
Found = True
ContainsDate = Found
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
since there is no way of controlling what clients type in
My program needs to check if there is a date in the filename AND then compare it to the date within the file. Date in the file and date in the name have to be the same, otherwise it goes into an error log file.
1st - there will be no agreed format with the clients, because i know it is possible to write code which will pick out the date from a random string.
I am sending a survey Excel file to client's, which they are completing daily.
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.