Date Format

Hey there,

I'm currently trying to do some error checking on a cell where the user has to enter the exact date format as "dd/mm/yyyy"

I have been using isDate to check if its a date and not text and then using the below function to check the exact format:

Function date_check()
    If Not (Range("C10").select = Format(CDate(Range("C10")), "DD/MM/YYYY")) Then
        MsgBox "The date was not entered correctly mate, please try again", vbInformation, "Add Non Conformity"
        date_check = 1
        Exit Function
    Else
        date_check = 0
    End If
End Function

I've tried the above if statement but doesnt seem to be working for me. Does ayone have any idea's as to why it wont work as it has been driving me potty!

Cheers for any help,

Jag

Hi Jag

Let me ask why the date format matters - if the user enters a proper Excel date (which you can control eg with Data Validation) the format of the actual entered date shouldn't matter.

Richard