'############################################################### '函数作用::查汉字区位码 '############################################################### Public Function 区(fa$) As String On Error Resume Next Dim L1$, R1$, L$, R$, a, b$, c, d, e$ c = Len(fa) For i = 1 To c d = Mid(fa, i, 1) a = Hex(Asc(d)) L1 = CInt("&H" + Mid(a, 1, 2)) ‐ 160 R1 = CInt("&H" + Mid(a, 3, 2)) ‐ 160 If Len(L1) = 1 Then L = "0" & L1 Else L = L1 End If If Len(R1) = 1 Then R = "0" & R1 Else R = R1 End If b = d & " " & L & R & " " e = e & b Next i 区 = e End Function |
|