date format check? 2

[99mel]

Hi all,

Right, I have a date which I want to check its in the right format i.e "dd/mm/yyyy"

How would i go about doing this?

If the date is like 01/012000 i just want to show an error bc its not dd/mm/yyyy.

Thanks for any help!

Mel

 

[sdh]

use isdate function

ie if isdate(value)<>true then
error meesage
end if
:

 

[MelissaEvans]

The IsDate won't check for formatting issues, it's not that picky. You could use the IsDate to verify that you can convert it to a date and then use the Format function to put it in the format you want.

If IsDate(DateStr) Then
  Text1.Text = Format(DateStr, "DD/MM/YYYY")
Else
   MsgBox "Invlid Date"
End If

Good luck!