sp判断中西混字符串长度
==============================
函 数 名: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
时间: 2024-08-03 12:08:21