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

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
>
>

On Mar 16, 7:19 am, wutzke <michael.wut...@gmail.com> 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

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

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

Rick


"Gary''s Student" <(E-Mail Removed)> wrote in message
news:5A21F7F3-6E3C-4601-A3D8-(E-Mail Removed)...
> 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
>>
>>