Date format in VBA

[Wanna Learn]

Hello I'm creating a user form in VBA. the Label is "Date received" and
this is what I have.
Me.txtDate = Format(Date, "mmm-dd-yy")
problem is that this shows the current date. What I want is for the person
to enter the date but no mattter how the date is entered to be formatted as
mmm-dd-yy thanks

 

[Mike H]

Hi,

It's a big ask to be able to allow people to enter a date in 'any' format
and expect Excel to recognise that but with a recognisable date in the text
box this gives the result you want.

Private Sub txtdate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtdate = vbNullString Then Exit Sub
If IsDate(txtdate) Then
txtdate = Format(txtdate, "mmm-dd-yyyy")
Else
MsgBox "Non valid date"
Cancel = True
End If
End Sub

Mike

 

[Dave Peterson]

You may want to consider using a calendar control. It'll remove any ambiguity
from what the user enters.

Did the user mean Jan 2, 2003 or Mar 1, 2002 when he or she typed 01/02/03 in
the text box.

See Ron de Bruin's site:
http://www.rondebruin.nl/calendar.htm

 

[Wanna Learn]

Thanks
This is perfect but
Can I use this calendar in a user form? Data is being entered using a user
form I created. Thanks Dave

 

[Dave Peterson]

One of the links at Ron's site was:
http://www.fontstuff.com/vba/vbatut07.htm

It shows how to create a userform using the calendar control.