Damn Dates
 

I've got this code line: || Worksheets("Leave").Range("B6").Value =
UserForm1.TextBox2.Value || to prompt the user for a date which will
be input in UK mode and which I want to appear in B6 in UK mode, ie dd/
mm/yy. It's putting it in B6 ok, but wrongly, eg if I type in
10/08/09 (10 AUG 09), 08/10/09 appears in B6.

Damn Dates
 

Hi,

Try

Range("B6") = CDate(Me.TextBox1.Text)

Wkr,

JP

"robzrob" wrote in message
...
I've got this code line: || Worksheets("Leave").Range("B6").Value =
UserForm1.TextBox2.Value || to prompt the user for a date which will
be input in UK mode and which I want to appear in B6 in UK mode, ie dd/
mm/yy. It's putting it in B6 ok, but wrongly, eg if I type in
10/08/09 (10 AUG 09), 08/10/09 appears in B6.

Damn Dates
 

On Aug 16, 1:27*pm, "JP Ronse" wrote:
Hi,

Try

Range("B6") = CDate(Me.TextBox1.Text)

Wkr,

JP

"robzrob" wrote in message

...



I've got this code line: || Worksheets("Leave").Range("B6").Value =
UserForm1.TextBox2.Value || to prompt the user for a date which will
be input in UK mode and which I want to appear in B6 in UK mode, ie dd/
mm/yy. *It's putting it in B6 ok, but wrongly, eg if I type in
10/08/09 (10 AUG 09), 08/10/09 appears in B6.- Hide quoted text -

- Show quoted text -

Sorry, it didn't like that, wouldn't run. I tried it 2 ways:
replacing the whole of
Worksheets("Leave").Range("B6").Value = UserForm1.TextBox2.Value with:

Range("B6") = CDate(Me.TextBox1.Text)

and also replacing part of my current line with yours like this:

Worksheets("Leave").Range("B6") = CDate(Me.TextBox1.Text)

Damn Dates
 

On Aug 16, 1:47*pm, robzrob wrote:
On Aug 16, 1:27*pm, "JP Ronse" wrote:





Hi,

Try

Range("B6") = CDate(Me.TextBox1.Text)

Wkr,

JP

"robzrob" wrote in message

....

I've got this code line: || Worksheets("Leave").Range("B6").Value =
UserForm1.TextBox2.Value || to prompt the user for a date which will
be input in UK mode and which I want to appear in B6 in UK mode, ie dd/
mm/yy. *It's putting it in B6 ok, but wrongly, eg if I type in
10/08/09 (10 AUG 09), 08/10/09 appears in B6.- Hide quoted text -

- Show quoted text -

Sorry, it didn't like that, wouldn't run. *I tried it 2 ways:
replacing the whole of
Worksheets("Leave").Range("B6").Value = UserForm1.TextBox2.Value with:

Range("B6") = CDate(Me.TextBox1.Text)

and also replacing part of my current line with yours like this:

Worksheets("Leave").Range("B6") = CDate(Me.TextBox1.Text)- Hide quoted text -

- Show quoted text -

Ah - just seen it - should be TextBox2 - not TextBox1 ! ! ! ! ! Will
re-try.

Damn Dates
 

On Aug 16, 1:49*pm, robzrob wrote:
On Aug 16, 1:47*pm, robzrob wrote:





On Aug 16, 1:27*pm, "JP Ronse" wrote:

Hi,

Try

Range("B6") = CDate(Me.TextBox1.Text)

Wkr,

JP

"robzrob" wrote in message

....

I've got this code line: || Worksheets("Leave").Range("B6").Value =
UserForm1.TextBox2.Value || to prompt the user for a date which will
be input in UK mode and which I want to appear in B6 in UK mode, ie dd/
mm/yy. *It's putting it in B6 ok, but wrongly, eg if I type in
10/08/09 (10 AUG 09), 08/10/09 appears in B6.- Hide quoted text -

- Show quoted text -

Sorry, it didn't like that, wouldn't run. *I tried it 2 ways:
replacing the whole of
Worksheets("Leave").Range("B6").Value = UserForm1.TextBox2.Value with:

Range("B6") = CDate(Me.TextBox1.Text)

and also replacing part of my current line with yours like this:

Worksheets("Leave").Range("B6") = CDate(Me.TextBox1.Text)- Hide quoted text -

- Show quoted text -

Ah - just seen it - should be TextBox2 - not TextBox1 ! ! ! ! ! * Will
re-try.- Hide quoted text -

- Show quoted text -

It's working - thanks.

Damn Dates
 

Hi,

You are welcome, keep in mind that VBA knows only American dateformat.

Wkr,

JP

"robzrob" wrote in message
...
On Aug 16, 1:49 pm, robzrob wrote:
On Aug 16, 1:47 pm, robzrob wrote:





On Aug 16, 1:27 pm, "JP Ronse" wrote:

Hi,

Try

Range("B6") = CDate(Me.TextBox1.Text)

Wkr,

JP

"robzrob" wrote in message

...

I've got this code line: || Worksheets("Leave").Range("B6").Value =
UserForm1.TextBox2.Value || to prompt the user for a date which will
be input in UK mode and which I want to appear in B6 in UK mode, ie
dd/
mm/yy. It's putting it in B6 ok, but wrongly, eg if I type in
10/08/09 (10 AUG 09), 08/10/09 appears in B6.- Hide quoted text -

- Show quoted text -

Sorry, it didn't like that, wouldn't run. I tried it 2 ways:
replacing the whole of
Worksheets("Leave").Range("B6").Value = UserForm1.TextBox2.Value with:

Range("B6") = CDate(Me.TextBox1.Text)

and also replacing part of my current line with yours like this:

Worksheets("Leave").Range("B6") = CDate(Me.TextBox1.Text)- Hide quoted
text -

- Show quoted text -

Ah - just seen it - should be TextBox2 - not TextBox1 ! ! ! ! ! Will
re-try.- Hide quoted text -

- Show quoted text -

It's working - thanks.

Damn Dates
 

On Aug 16, 2:11*pm, "JP Ronse" wrote:
Hi,

You are welcome, keep in mind that VBA knows only American dateformat.

Wkr,

JP

"robzrob" wrote in message

...
On Aug 16, 1:49 pm, robzrob wrote:





On Aug 16, 1:47 pm, robzrob wrote:

On Aug 16, 1:27 pm, "JP Ronse" wrote:

Hi,

Try

Range("B6") = CDate(Me.TextBox1.Text)

Wkr,

JP

"robzrob" wrote in message

...

I've got this code line: || Worksheets("Leave").Range("B6").Value =
UserForm1.TextBox2.Value || to prompt the user for a date which will
be input in UK mode and which I want to appear in B6 in UK mode, ie
dd/
mm/yy. It's putting it in B6 ok, but wrongly, eg if I type in
10/08/09 (10 AUG 09), 08/10/09 appears in B6.- Hide quoted text -

- Show quoted text -

Sorry, it didn't like that, wouldn't run. I tried it 2 ways:
replacing the whole of
Worksheets("Leave").Range("B6").Value = UserForm1.TextBox2.Value with:

Range("B6") = CDate(Me.TextBox1.Text)

and also replacing part of my current line with yours like this:

Worksheets("Leave").Range("B6") = CDate(Me.TextBox1.Text)- Hide quoted
text -

- Show quoted text -

Ah - just seen it - should be TextBox2 - not TextBox1 ! ! ! ! ! Will
re-try.- Hide quoted text -

- Show quoted text -

It's working - thanks.- Hide quoted text -

- Show quoted text -

I think we should scrap both and use yy/mm/dd - that would solve a lot
of problems!

Damn Dates
 

Corect: ISO is the best way
http://msdn.microsoft.com/en-us/library/bb277364.aspx


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"robzrob" wrote in message
...
On Aug 16, 2:11 pm, "JP Ronse" wrote:
Hi,

You are welcome, keep in mind that VBA knows only American dateformat.

Wkr,

JP

"robzrob" wrote in message

...
On Aug 16, 1:49 pm, robzrob wrote:





On Aug 16, 1:47 pm, robzrob wrote:

On Aug 16, 1:27 pm, "JP Ronse" wrote:

Hi,

Try

Range("B6") = CDate(Me.TextBox1.Text)

Wkr,

JP

"robzrob" wrote in message

...

I've got this code line: || Worksheets("Leave").Range("B6").Value =
UserForm1.TextBox2.Value || to prompt the user for a date which will
be input in UK mode and which I want to appear in B6 in UK mode, ie
dd/
mm/yy. It's putting it in B6 ok, but wrongly, eg if I type in
10/08/09 (10 AUG 09), 08/10/09 appears in B6.- Hide quoted text -

- Show quoted text -

Sorry, it didn't like that, wouldn't run. I tried it 2 ways:
replacing the whole of
Worksheets("Leave").Range("B6").Value = UserForm1.TextBox2.Value with:

Range("B6") = CDate(Me.TextBox1.Text)

and also replacing part of my current line with yours like this:

Worksheets("Leave").Range("B6") = CDate(Me.TextBox1.Text)- Hide quoted
text -

- Show quoted text -

Ah - just seen it - should be TextBox2 - not TextBox1 ! ! ! ! ! Will
re-try.- Hide quoted text -

- Show quoted text -

It's working - thanks.- Hide quoted text -

- Show quoted text -

I think we should scrap both and use yy/mm/dd - that would solve a lot
of problems!