=DATE(INT(MID(D2,FIND(" ",D2,FIND(" ",D2)+1)+1,4)),INT(MATCH(E2,{"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"},0)),INT(MID(D2,FIND(" ",D2)+1,FIND(",",D2)-FIND(" ",D2)-1)))
=DATEVALUE(LEFT(D20,FIND(CHAR(1),SUBSTITUTE(D20," ",CHAR(1),3))))
Function ConvertDate(sDate As String) As Date
Dim AR() As String
AR = Split(sDate, " ")
ConvertDate = DateValue(AR(0) & " " & AR(1) & " " & AR(2))
End Function
And one more
=DATEVALUE(LEFT(D20,12))
Besides Text To Columns, you can also use Excel's Replace dialog box. Select the column with your date/time values in it, then press CTRL+H to bring up the Replace dialog box, type (or copy/paste) this into the "Find what" field...If your dates are in a particular column, you can convert them in the same place and permanently using the function TEXT TO COLUMN..