Does anyone know how you can change american date format to UK englishwhen a
text box = a cell with a date, it displays it in US format.

TextBox1.Text = Format(CDate(TextBox1.Text), "dd/mm/yyyy")

--
__________________________________
HTH

Bob

"Jim Lavery" wrote in message
...
Does anyone know how you can change american date format to UK englishwhen
a text box = a cell with a date, it displays it in US format.

Thanks Bob. I put this in the code for the text box but it hasn't worked.
"Bob Phillips" wrote in message
...
TextBox1.Text = Format(CDate(TextBox1.Text), "dd/mm/yyyy")

--
__________________________________
HTH

Bob

"Jim Lavery" wrote in message
...
Does anyone know how you can change american date format to UK
englishwhen a text box = a cell with a date, it displays it in US format.

Hi Jim,

I am assuming that you require the answer as it is done in VBA code. Is that
correct? If so then the following examples should explain it.

'Date in range A3 set to 3 Aug 2008

'Following displays 8/3/2008 in textbox (US format)
Sheet1.TextBox1.Value = Sheet1.Range("F3")

'Following displays 03 Aug 2008 in textbox
Sheet1.TextBox1.Value = Format(Range("F3"), "dd mmm yyyy")

'Following displays 3/8/2008 in textbox
Sheet1.TextBox1.Value = Format(Range("F3"), "d/mm/yyyy")


If you set a linked cell in the TextBox properties then the Linked Cell must
contain the formatting so that it is a text value not a date value like the
following

=TEXT(DATEVALUE("3 Aug 2008"),"dd mmm yyyy")


In the above formula, DATEVALUE("3 Aug 2008") could simply reference a cell
with an actual date like the following. (Assuming that G3 contains the date 3
Aug 2008)

=TEXT(G3,"dd mmm yyyy")

Note that TEXT function is used on a worksheet and FORMAT function is used
in VBA to achieve the same results.



--
Regards,

OssieMac


"Jim Lavery" wrote:

Thanks Bob. I put this in the code for the text box but it hasn't worked.
"Bob Phillips" wrote in message
...
TextBox1.Text = Format(CDate(TextBox1.Text), "dd/mm/yyyy")

--
__________________________________
HTH

Bob

"Jim Lavery" wrote in message
...
Does anyone know how you can change american date format to UK
englishwhen a text box = a cell with a date, it displays it in US format.

An explanation of what happened/didn't happen would help.

--
__________________________________
HTH

Bob

"Jim Lavery" wrote in message
...
Thanks Bob. I put this in the code for the text box but it hasn't worked.
"Bob Phillips" wrote in message
...
TextBox1.Text = Format(CDate(TextBox1.Text), "dd/mm/yyyy")

--
__________________________________
HTH

Bob

"Jim Lavery" wrote in message
...
Does anyone know how you can change american date format to UK
englishwhen a text box = a cell with a date, it displays it in US
format.

Sorry Bob I should hav ebeen more descriptive. The date remained in US
format in the text box
"Bob Phillips" wrote in message
...
An explanation of what happened/didn't happen would help.

--
__________________________________
HTH

Bob

"Jim Lavery" wrote in message
...
Thanks Bob. I put this in the code for the text box but it hasn't worked.
"Bob Phillips" wrote in message
...
TextBox1.Text = Format(CDate(TextBox1.Text), "dd/mm/yyyy")

--
__________________________________
HTH

Bob

"Jim Lavery" wrote in message
...
Does anyone know how you can change american date format to UK
englishwhen a text box = a cell with a date, it displays it in US
format.

Do you have the TextBox linked to the cell via the LinkedCell property? If
so, try unlinking the TextBox (clear the LinkedCell property) and using this
worksheet Change event code to control the contents of the TextBox...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$5" Then
TextBox1.Text = Format$(Target.Value, "dd/mm/yyyy")
End If
End Sub

Change the address string in the If..Then statement to the absolute address
string for the cell you previously had the TextBox linked to. Does doing
this do what you want?

Rick


"Jim Lavery" wrote in message
...
Sorry Bob I should hav ebeen more descriptive. The date remained in US
format in the text box
"Bob Phillips" wrote in message
...
An explanation of what happened/didn't happen would help.

--
__________________________________
HTH

Bob

"Jim Lavery" wrote in message
...
Thanks Bob. I put this in the code for the text box but it hasn't
worked.
"Bob Phillips" wrote in message
...
TextBox1.Text = Format(CDate(TextBox1.Text), "dd/mm/yyyy")

--
__________________________________
HTH

Bob

"Jim Lavery" wrote in message
...
Does anyone know how you can change american date format to UK
englishwhen a text box = a cell with a date, it displays it in US
format.