判断是否字符串中包含汉字

时　间:2016-12-01 12:36:23
作　者:易勋   ID：35404  城市：上海
摘　要:判断是否字符串中包含汉字
正　文:

Public Function IncludeChinese(ByVal Expression As String) As Boolean
    IncludeChinese = False
    Dim bytData() As Byte: bytData = Expression
    Dim lngLower  As Long: lngLower = CLng("&H4E00")
    Dim lngUpper  As Long: lngUpper = CLng("&H9FA5")
    Dim lngI As Long
    For lngI = 0 To UBound(bytData) Step 2
        Dim lngCode As Long
        lngCode = CLng("&h" + Hex(bytData(lngI) + bytData(lngI + 1) * 255))
        If lngCode >= lngLower And lngCode <= lngUpper Then
            IncludeChinese = True
            Exit Function
        End If
    Next
End Function


Access软件网官方交流QQ群 (群号:483923997) 　　　　　　Access源码网店