help with converting a user form text box to date format

[arey]

Hi all,


I created a user form and have a text box that should contain the date. When the user opens the form I'd like this cell to display as "mm/dd/yyyy". Indicating to the user that the date should be entered in that format.

Any ideas how I can accomplish this?

I have a similar request for a time field but If I can get the date, im sure i can figure out the time.

Any help would be great.

Thanks in advance.

 

[Andrew Poulsom]

Like this?

Private Sub UserForm_Initialize()
    With TextBox1
        .Text = "mm/dd/yyyy"
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

 

[arey]

Forgive me Im really new at creating these forms.

the code I have for the text box right now looks like this...
Private Sub txtDate_Change()
End Sub


Do i simply replace what I have with what you provided?

 

[Andrew Poulsom]

The code I posted is in the UserForm's Initialize event procedure. So the TextBox is populated when you show the form. I don't think you need any code in the TextBox's Change event procedure.

 

[arey]

Thanks a million!

That works great!

Two more questions.

1. I can use the same code for the time, correct"
2. What would I add if i wanted the "/ /" to stay in the text box for the user to add the date?

 

[Andrew Poulsom]

1. Correct.
2. I don't know how to do that, but here is a validation mask:

http://www.mrexcel.com/forum/showthread.php?p=1556884

You will have to tweak the code slightly for US style dates.

 

[Smitty]

You can also right-click on the UserForm Toolbox and select Additional Controls, where you should find a reference to the Microsoft Date & Time Picker controls. They're pre-formatted to accept Dates/Times only. The first displays a calendar control, the second a spin box.

HTH,

 

[arey]

let just say that you guys ROCK!!!!


Thank you so much!