' 获取字符长度，一个中文字符长度算 2

' 参数：

' str 需要获取长度的字符串

' 返回值：整数 (字符串的长度)

以下是引用片段： Function GetStrLen(str) If IsNull(str) Or str = "" Then getStrLen = 0 Else Dim i, n, k, chrA k = 0 n = Len(str) For i = 1 To n chrA = Mid(str, i, 1) If Asc(chrA) >= 0 And Asc(chrA) <= 255 Then k = k + 1 Else k = k + 2 End If Next getStrLen = k End If End Function