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群(群号:198465573) |