date format in VBA user form

Originally Posted by davesexcel

Try These

TextBox1 = Format(TextBox1, "dd/mm/yy")
Range("C1") = Format(TextBox1, "dd/mm/yy")
Range("D1") = Format(TextBox1, "[$-409]mmmm d, yyyy;@")

Hello Dave

I have tried your code (reproduced below)

Private Sub txtBookingdate_Change()
txtBookingdate = Format(txtBookingdate, "dd/mm/yy")

End Sub

but find it returns the date 30/12/1899 plus the first digit I enter. What am I doing wrong? txtBookingdate is the name of the text box in my UserForm.

Thanks for your speedy response on Friday.

Terry Wingfield

The Change event will fire for each keystroke you make. Try using the AfterUpdate or Exit events instead.

Thanks Friel

That's done the trick

regards
Terry

That helps thanks. My original problem which has not been solved, however, is that the date format I want in my spreadsheet is dd/mm/yy and is formatted as such but when I enter that format in the User Form it enters mm/dd/yy in the spreadsheet. Any thoughts?

If you are transferring the date via code, use CDate (assuming your system is set to UK format):

Range("A1").value = CDate(Me.txtBookingdate.Value)

for example.