|
sp判断中西混字符串长度 ==============================
函 数 名StringLength
作 用判断字符串长度
参 数需进行判断的文本Txt
==============================
Private Function StringLength(Txt)
Txt=Trim(Txt)
x=Len(Txt)
y=
For ii = To x
If Asc(Mid(Txtii))<= or Asc(Mid(Txtii))> Then
y=y +
Else
y=y +
End If
Next
StringLength=y
End Function |
