:一个汉字占二个字节长度，一个ASCII占一个字节长度

Public Function LenC(str As String) As Integer
'   取混合字符串的实际长度:一个汉字占二个字节长度，一个ASCII占一个字节长度
'   LenC("例ABCD") = 5
    Dim abString() As Byte
    Dim i As Integer
    abString() = str
    For i = LBound(abString) To UBound(abString) Step 2
        If abString(i + 1) > 0 Then LenC = LenC + 2 Else LenC = LenC + 1
    Next i
End Function

(责任编辑：admin)

• ·Access 获取office的安装路径【函数】
• ·导入导出Excel(.Xlsx)或(.Xls)数据到SQ
• ·浅析Access与Office其他成员之间交流数
• ·Access2003设置压缩和修复数据库的方法
• ·Access2003设置启动窗体与恢复原始设置
• ·妙用Office合并列数据 快速完成报表
• ·对 Microsoft Office 命令栏进行更多编
• ·SQL Server日期计算
• ·SQL语法参考
• ·XLS与MDB文件格式互换全攻略
• ·在Access中调用Excel无法彻底关闭
• ·Access导出到Excel提速之法
• ·Access朗读任意文本/使Access真人发声
• ·解决ACCESS XP 粘贴数字到EXCEL XP会变
• ·用VBA代码下载网络上的文件
• ·把子窗体的内容复制到EXCEL（子窗体可