sp判斷中西混字符串長度

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