Access培训-Access开发平台-Access行业开发
Access交流网(免费Access交流)
QQ:18449932
网 址:www.access-cn.com
将下列代码粘贴到一个新模块中,调用函数HasWideChr即可。
Dim ByteGB() As Byte Dim LenW As Integer ByteGB = StrConv(str, vbFromUnicode) LenW = UBound(ByteGB) + 1 HasWideChr = Len(str) <> LenWEnd Function