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

[lifredjian]

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

[胖河马]

取区位码
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)

[zyl910]

楼上的效率太低

Dim Char as Integer
Char=Abc("汉")
区=(Char And &HFF)-160
位=((Char and &H7F00)\&H100 or ((Char and &H8000)<>0)and &H80)-160