Validate a valid date

Hi.

I know that IsDate() usually will return if a date is valid, but when a cell is format to Text, then I will use DateSerial to split to Date.
However, it seems that the IsDate() is not working.

I have set in A1 as date 20180230, and use the following code:

Please Login or Register  to view this content.

It will return true which is not correct.
If I remove the IsDate(), and show msgbox dDate, it will show the next validate date which is 01 March 2018.

Is there a way to identify a valid date from a text format?

Thanks

Originally Posted by calvinle

... it seems that the IsDate() is not working.
I have set in A1 as date 20180230, and use the following code:
...
It will return true which is not correct.
If I remove the IsDate(), and show msgbox dDate, it will show the next validate date which is 01 March 2018.

Function works well, the date of 02-03-2018 is correct - fragment from 'Ms' description:

"When any argument exceeds the accepted range for that argument, it increments to the next larger unit as appropriate. For example, if you specify 35 days, it is evaluated as one month and some number of days, depending on where in the year it is applied. If any single argument is outside the range -32,768 to 32,767, an error occurs. If the date specified by the three arguments falls outside the acceptable range of dates, an error occurs."

I want the msgbox to tell me that the date 20180230 is false, because there is no 30 February.

Function ... full folk handicrafts ... , not tested too much:

In text file because of strange communique from forum site ... ???

I have set in A1 as date 20180230...

Please Login or Register  to view this content.