View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.newusers
Tim Rush Tim Rush is offline
external usenet poster
 
Posts: 27
Default Date Formatting/adding slashes

Perfeect! Thankyou.

"Dave Peterson" wrote:

VBA has it's own version of the =date() worksheet function.

Look for DateSerial in VBA's help.

dDate = Dateserial(Mid(strDateTime, 1, 2), _
Mid(strDateTime, 5, 2), _
Mid(strDateTime, 3, 2))


Tim Rush wrote:

how would I do this with VBA. I've tried the following:
dDate = Application.WorksheetFunction.Date(Mid(strDateTime , 1, 2),
Mid(strDateTime, 5, 2), Mid(strDateTime, 3, 2))

where stDateTime is 12 digit string in the format 0812011324112 (yymmddhhmmss)

I get an unsupported method error

"Shane Devenshire" wrote:

Hi Teresa,

You can simplify the suggested approaches

=DATE(VALUE(RIGHT(A2,4)), VALUE(LEFT(A2,1)), VALUE(MID(A2,2,2)))

to the following:

=DATE(RIGHT(A1,4), LEFT(A1),MID(A1,2,2))

However, keep in mind that all these approaches have a problem - what does
this represent: 1112009 is this 11/1/2009 or 1/11/2009?

To make these approaches better is is preferable that the original dates are
entered 02012007 which would be 2/1/2007. If the dates are entered this way
you should modify the above formula to read:

=DATE(RIGHT(A1,4), LEFT(A1,2),MID(A1,2,2))

Cheers,
Shane Devenshire
Microsoft Excel MVP

"teresa" wrote in message
...
Hello,

I have a spreadsheet with data from a datebase that list dates with no
slashes. How can I add slashes?

Current format -7132007
Desired format- 7/13/2007

Thanks



--

Dave Peterson