Convert a yyyymmdd date format in code

[Laurence Lombard]

How does one in VBA code convert a date with format yyyymmdd (eg today's
date = 20110505) to a date recognized by Excel. I tried ConvertedDate =
Application.Worksheetfunction.Date(Left(InputDate,4),Mid(Inputdate,5,2),Right(InputDate,2))
but that does not work. It would be easy enough in the spreadsheet, but in
VBA?
Thanks
Laurence

 

[Claus Busch]

Am Fri, 6 May 2011 08:50:33 +0200 schrieb Laurence Lombard:

How does one in VBA code convert a date with format yyyymmdd (eg today's
date = 20110505) to a date recognized by Excel. I tried ConvertedDate =
Application.Worksheetfunction.Date(Left(InputDate,4),Mid(Inputdate,5,2),Right(InputDate,2))
but that does not work. It would be easy enough in the spreadsheet, but in

ConvertedDate =DateSerial(Left(Inputdate, 4), Mid(Inputdate, 5, 2), Right(Inputdate, 2))


Regards
Claus Busch

 

[Ron Rosenfeld]

How does one in VBA code convert a date with format yyyymmdd (eg today's
date = 20110505) to a date recognized by Excel. I tried ConvertedDate =
Application.Worksheetfunction.Date(Left(InputDate,4),Mid(Inputdate,5,2),Right(InputDate,2))
but that does not work. It would be easy enough in the spreadsheet, but in
VBA?
Thanks
Laurence

Where "d" is a date in the format of yyyymmdd:


ConvertDate = CDate(Format(d, "0000-00-00"))

 

[Laurence Lombard]

Thanks Claus and Ron - both very useful replies. I knew there would be ways,
just did not know how to find them.
Laurence

 

[Ron Rosenfeld]

Thanks Claus and Ron - both very useful replies. I knew there would be ways,
just did not know how to find them.
Laurence

Glad to help. Thanks for the feedback.