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也可使用