convert 041670 to April 16, 1970

[Smithgall]

I have a text box on a user form that accepts a date. The userform has to handle the conversion rathern than a cell format.

this is what i am using

TextBox1.Value = Format(TextBox1.Value, "mmmm dd, yyyy")

But if the user puts in 041670 i get January 31, 2014.

what is the best way to handle this? I assume the solution is somewhere in forcing the user to type the date in the text box in a specific way. Since i am striving for consistancy. what is the best way to make sure they do this everytime. Or does the solutio lie elsewhere?

 

[westjelly]

I need a nap

Any value in splitting the text box into 3, grabbing a month, day and year? From there, smoosh the 3 values together in whichever format you'd like.

Or would that just be annoying?

 

[Scott Huish]

Perhaps:

If IsNumeric(TextBox1) Then TextBox1 = Format(TextBox1.Value, "00-00-00")
TextBox1.Value = Format(TextBox1.Value, "mmmm dd, yyyy")

 

[Smithgall]

thanks that works

west jelly. I thought about putting thre boxes but from a user stand point that seemed clunky. Although it would have ben the easiest. I might have even used 3 list boxes with months days and about a ten year spread.

Hotpepper. that worked fine. My only problem is that if you put in 04161970 it throws it off. if they put in 041670 then it works beautifully. I think i may put some sort of handling on what they enter to make sure they enter correctly. Thank again

 

[Scott Huish]

OK, how about:

If IsNumeric(TextBox1) Then
    If Len(TextBox1) < 7 Then
        TextBox1 = Format(TextBox1.Value, "00-00-00")
    Else
        TextBox1 = Format(TextBox1.Value, "00-00-0000")
    End If
End If
TextBox1.Value = Format(TextBox1.Value, "mmmm dd, yyyy")