863
社区成员
发帖
与我相关
我的任务
分享
Public Function getCardSubString(strCard As String, _
startPosition As Integer, _
strlength As Integer _
) As String
Dim sSrc As String
Dim sSub As String
sSrc = StrConv(strCard, vbFromUnicode)
sSub = MidB$(sSrc, startPosition + 1, strlength)
getCardSubString = StrConv(sSub, vbUnicode)
End Function