一个汉字区位转换函数

时　间:2007-11-08 15:15:37
作　者:gdjdyyj   ID：54  城市：东营
摘　要:汉字区位转换函数
正　文:

Function hzqw(hz As String)
    hz2 = ""
        If Len(hz) > 0 Then
            For I = 1 To Len(Trim(hz))
                hz1 = Mid(hz, I, 1)
                L = CInt("&H" + Mid(Hex(Asc(hz1)), 1, 2) - 160)
                R = CInt("&H" + Mid(Hex(Asc(hz1)), 3, 2) - 160)
                hz2 = hz2 & hz1 & IIf(L < 10, "0" & L, L) & IIf(R < 10, "0" & R, R) & Space(4)

           Next
        End If
    hzqw = hz2
End Function

注:EXCEL也可使用