Format Date

[mouse88]

I am using the following code to get dates from text boxes in to my spreadsheet:

Range("rngDateFromDisplay").Value = Format(tbDateFrom.Text, "Short Date")
Range("rngDateToDisplay").Value = Format(tbDateTo.Text, "Short Date")

For some reason one of them comes out in the correct UK format and the other comes out in the US format. See below screen shot.

I have check the formatting of the two cells and their both set to DD/MM/YYY with UK locale so I can't understand why the top one comes out wrong.

Any Ideas?
Thanks
Matt

 

[VoG]

VBA dates are US-centric. Try

Range("rngDateFromDisplay").Value = Format(tbDateFrom.Text, "dd/mm/yy")

 

[mouse88]

Same result again unfortunately.

Seems strange because one is correct and the other isn't but im doing exactly the same with both.

 

[VoG]

Try

With Range("rngDateFromDisplay")
    .NumberFormat = "dd/mm/yy"
    .Value = DateValue(tbDateFrom.Text)
End With