VBA excel 提取字符串中的日期

str=“L4-122344/2012.3.8” 提取 2012.3.8 谢谢赐教

2024-11-25 15:52:23

推荐回答（5个）

回答1：

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

回答2：

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

回答3：

str=“L4-122344/2012.3.8”
rq=split(str,"/")(1)

回答4：

Right(str, Len(str) - InStr(str, "/"))

回答5：

theDATE = mid(str, instr(str, "/")+1,999)