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