vb截取字符串请教

Function getmystring(instring As String) As String
Dim a As String
Dim i As Long
a = ""
For i = 1 To Len(instring)
If Mid(instring, i, 1) = "/" Then
a = Mid(instring, 1, i - 1)
Exit For
End If
Next i
getmystring = a
End Function
就用这个函数
我给你写好了
用的时候就是getmystring("TH13/18/2")就会得到”TH13“了!!

以上就是关于vb截取字符串请教全部的内容，包括:vb截取字符串请教、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！