Text Box In Date Format

[cdhoughton]

I am unsure how to set the format of a text box in a user form to allow only date entry in the format dd/mm/yyyy.

How do I achieve this?

Cheers for any help, and merry Christmas to one and all!

 

[al_b_cnu]

Hi,

how about something like this:

Private Sub CommandButton1_Click()
Dim dDate As Date
If IsDate(TextBox1.Text) = False Then
    MsgBox "Not a date", vbCritical + vbOKOnly
    Exit Sub
End If
dDate = TextBox1.Text
MsgBox Format(dDate, "dd/mm/yyyy")
End Sub

note that this code isnt 'picky' about the format, so it'll accept any valid date format.

HTH

Alan

 

[cdhoughton]

Great stuff, cheers for that!