Sub 提取日期()
Dim temp
Dim str As String
Dim d As Date
str = "l4-122344/2012.3.8"
temp = Split(str, "/")(1)
d = DateSerial(Split(temp, ".")(0), Split(temp, ".")(1), Split(temp, ".")(2))
End Sub
Sub a()
Dim Str As String
Str = "L4-122344/2012.3.8"
I = InStrRev(Str, "/", , vbTextCompare)
V = Mid(Str, I + 1)
Debug.Print V
End Sub
str=“L4-122344/2012.3.8”
rq=split(str,"/")(1)
Right(str, Len(str) - InStr(str, "/"))
theDATE = mid(str, instr(str, "/")+1,999)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024