User Forms data entry - MM/DD/YYYY

  • Thread starter Thread starter UmpaL00mpa
  • Start date Start date
U

UmpaL00mpa

I have a custom user form that pops up during one of the macros I run. In one
text box the user has to enter a date. I would like to write some code so that
the user can only enter the date in the MM/DD/YYYY format - eg. 11/07/2004.
What is the VBA code for this? Any help would by appreciated. Thank you.

(e-mail address removed)
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim cDelim As Long
cDelim = Len(TextBox1.Text) - Len(Replace(TextBox1.Text, "/", ""))
Select Case KeyAscii
Case Asc("0") To Asc("9"): 'OK
Case Asc("/"):
If cDelim = 2 Then
KeyAscii = 0
Else
cDelim = cDelim + 1
End If
Case Else: KeyAscii = 0
End Select

End Sub

This can be amended to be more specific

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Day of Week from dd/mm/yyyy 7
Forcing a date entry format of dd/mm/yyyy 1
how to put mydate into activecell as dd/mm/yyyy excel 2007 vb 3
Need help to convert date from dd/mm/yyyy to mm/dd/yyyy 1
International Date formatting 4
Excel is changing date format incorrectly 7
Excel VBA to convert "dd.MM.yy" text to "dd/MM/yyyy" format date? 4
How to enter a date in DD-MM-YYYY format 2

Back
Top