使用自定义函数统计中文字符个数

lrlxxqxa

1. Public Function HZ(ByVal strscr As String) As Integer
   
2. Dim i%
   
3. s = StrConv(strscr, 8)
   
4. HZ = 0
   
5. For i = 1 To Len(s)
   
6. If Asc(Mid(s, i, 1)) < 0 And Asc(Mid(s, i, 1)) > -20320 Then
   
7. HZ = HZ + 1
   
8. End If
   
9. Next i
   
10. End Function

复制代码

使用自定义函数统计中文字符个数。