将文本日期格式转换为日期格式

Question

我有一个日期格式为文本格式 - “2016年7月22日”。如何使用Excel-VBA将其转换为日期格式。

在此先感谢。

Answer 1

Sub datestuff() 
    myDate = "22nd July 2016" 
    myDateArray = Split(myDate, " ") 
    myDateArray(0) = Trim(Replace(Replace(Replace(Replace(myDateArray(0), "st", ""), "nd", ""), "rd", ""), "th", "")) 
    myDate = DateValue(Join(myDateArray, " ")) 
    Debug.Print myDate ' outputs '22/07/2016' 
End Sub 

在我看来，主要问题是白天的一部分;处理，其余的将会很简单？

Answer 2

一种方式是仅仅剥离工作的序指示符：

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 

和不VBA可以使用工作表公式：

=DATEVALUE(SUBSTITUTE(A1,MID(A1,FIND(" ",A1)-2,2),""))