Check if textbox contains a UK date only?

[RockEd]

Hello,

I have some code to check if textbox contains a date and if so, write it to the spreadsheet, as so (the top line):

                If IsDate(TB_Date_of_Decs.Text) Then
                                
                ActiveSheet.Cells(.Row, Range("Date_of_Decs").Column) = CDate(TB_Date_of_Decs.Text)
            
                    Else
            
                MsgBox ("You did not enter a valid date in the date of decs field."), vbCritical + vbOKOnly
            
            
                End If

However, it allows US dates through (i.e. I only want it to accept DD/MM/YYYY; but it will also accept MM/DD/YYYY etc.).

Is there a way round this?

 

[RoryA]

No. How would you tell the difference between 1/2/2022 meaning 1st Feb or 2nd Jan?

May I ask why it matters? Shouldn't you let the user input dates in whatever their natural format is?

 

[RockEd]

Yeah fair enough. The only people that will use this spreadsheet will be based in the UK I felt that if someone wrote say 10/15/2022 that it was more likely to be a typo (that would be missed), than purposefully wanting to write 15th October 2022 etc.

Thanks anyway!

 

[RoryA]

For something like that you could always use Split to break the entry into three parts and then check if the middle part is >12 but that's about all I can think of.

 

[RockEd]

Yeah good point, it's probably a very small chance of happening so I'll leave it. Thanks for your help though.