|
sp判断中西混字符串长度 <script>ec(2);</script>
'==============================
'函 数 名：StringLength
'作 用：判断字符串长度
'参 数：需进行判断的文本Txt
'==============================
Private Function StringLength(Txt)
Txt=Trim(Txt)
x=Len(Txt)
y=0
For ii = 1 To x
If Asc(Mid(Txt,ii,1))<=2 or Asc(Mid(Txt,ii,1))>255 Then
y=y 2
Else
y=y 1
End If
Next
StringLength=y
End Function
|
