作    者：朱亦文  发布日期：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