Converting Dates
 

Given a cell value of "Feb '08 " that is text, how could I
programically convert the value to 02/01/2008 in Date values

Converting Dates
 

Sub qwerty()
s = "Feb '08 "
s = Application.WorksheetFunction.Substitute(s, "'", "20")
MsgBox (DateValue(s))
End Sub

--
Gary''s Student - gsnu200773


"wutzke" wrote:

Given a cell value of "Feb '08 " that is text, how could I
programically convert the value to 02/01/2008 in Date values

Converting Dates
 

On Mar 16, 7:19 am, wutzke wrote:
Given a cell value of "Feb '08 " that is text, how could I
programically convert the value to 02/01/2008 in Date values

Hello wutzke,

Here is one way. The single quote is represented by Chr$(39) for
readability.

Dim D

D = Split("Feb '08", Chr$(39))
D = CDate(D(0) & "1, " & D(1)) 'D is now = 2/01/2008

Sincerely,
Leith Ross

Converting Dates
 

Or, staying totally within VBA, using this for your second line instead...

s = Replace(s, "'", "20")

Rick


"Gary''s Student" wrote in message
...
Sub qwerty()
s = "Feb '08 "
s = Application.WorksheetFunction.Substitute(s, "'", "20")
MsgBox (DateValue(s))
End Sub

--
Gary''s Student - gsnu200773


"wutzke" wrote:

Given a cell value of "Feb '08 " that is text, how could I
programically convert the value to 02/01/2008 in Date values