' 用途：将二进制转化为十六进制' 输入：Bin(二进制数)' 输入数据类型：String' 输出：BIN_to_HEX(十六进制数)' 输出数据类型：String' 输入的最大数为2147483647个字符Public Function BIN_to_HEX(ByVal Bin As String) As String
Dim i As Long
Dim H As String
If Len(Bin) Mod 40 Then
Bin = String(4 - Len(Bin) Mod 4, "0") & Bin
End If
For i =...
