One way is to just strip-off the ordinal indicator:
Public Function dateOR(s As String) As Date
ary = Split(s, " ")
ary(0) = Left(ary(0), Len(ary(0)) - 2)
dateOR = DateValue(Join(ary, " "))
End Function
and without VBA you can use the worksheet formula:
=DATEVALUE(SUBSTITUTE(A1,MID(A1,FIND(" ",A1)-2,2),""))
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…