VBA excel 提取字符串中的日期

Sub 提取日期()Dim tempDim str As StringDim d As Datestr = l4-122344/2012.3.8temp = Split(str, /)(1)d = DateSerial(Split(temp, .)(0), Split(temp, .)(1), Split(temp, .)(2))End Sub