Converting 6-digit number to date

[litestream]

I have a worksheet with a date as a number in the format ddmmyy - i.e. 17th July 2008 would be shown as 170708.

How can I convert 170708 to 17th July 2008 using vba?

 

[Norie]

Why do you need code?

Select the column with dates, goto Data>Text to columns... and on the 3rd step select DMY from the Column data format dropdown.

If you really need code you could record this when you do it.

 

[VoG]

Without VBA, select the 'dates' Data > Text to Columns, click Next twice and on the third screen tick Date select DMY and click Finish.

 

[RoryA]

strTest = Range("A1").text
msgbox datevalue(left(strtest,2) & "/" & mid(strtest,3,2) & "/" & right(strtest,2))

for example.

 

[litestream]

The 6-digit number is generated from the sheet name and is not in a cell. My worksheets are wc200708, wc270708 etc.

I removed the "wc" portion using vba but was wondering if I could convert the remaining 6-digit number to a date then show this in a cell on the worksheet.

 

[litestream]

Thanks rorya, that worked perfectly

 

[Norie]

Here's something using DateValue and Format.

[b1] = DateValue(Format([a1], "00\/00\/00"))