作    者：朱亦文  
发布日期：2004年2月24日
摘    要：在汉字显示时，一个汉字占了2个英文字母的宽度，而以Len求长度时，1个汉字返回1，1个英文字母也返回1，由于ACCESS中使用的是UniCode编码，故此LenB则会返回2，例如:Len("中国ACCESS")=8,LenB("中国ACCESS")=16，而实际上“中国access”在屏幕上只占了10英文字母的宽度，那么如何来求取这个数值呢？

正    文：


Public Function chkGb(strGB As String) As Integer 
　 Dim ByteGB() As Byte 
　 ByteGB = StrConv(strGB, vbFromUnicode) 
　 chkGb = UBound(ByteGB) + 1 
End Function