哪儿找到汉字区位码库？如果用函数将汉字转换成区位码？

Question

哪儿找到汉字区位码库？如果用函数将汉字转换成区位码？
国标汉字Unicode码最小值与最大值是多少？
谢谢答复。100分高分酬谢！！！！！！！！！！！

Answer 1

取区位码
Public Function GetQW(ByVal Char As String)
    Dim tmp As String
    Dim h As String
    Dim l As String
    
    tmp = Hex(Asc(Char))
    h = Format(Val("&H" & Left(tmp, 2)) - 160, "00")
    l = Format(Val("&H" & Right(tmp, 2)) - 160, "00")
    GetQW = h & l
End Function
区码从01-87，位码从01-94，下面的代码可以根据区位吗转换成汉字，你做个循环就能得到区位码表
Dim bBuf(1) As Byte
bBuf(0) = 68 + 160    '将区吗加160
bBuf(1) = 76 + 160    '将位吗加160
MsgBox StrConv(bBuf, vbUnicode)

Answer 2

楼上的效率太低Dim Char as Integer
Char=Abc("汉")
区=(Char And &HFF)-160
位=((Char and &H7F00)\&H100 or ((Char and &H8000)<>0)and &H80)-160