【VBA】二进制转16进制

最新推荐文章于 2022-04-26 21:22:44 发布

转载最新推荐文章于 2022-04-26 21:22:44 发布 · 3.4k 阅读

VB 专栏收录该内容

13 篇文章

订阅专栏

本文提供了一个使用VBScript实现的函数，该函数能够将给定的二进制字符串转换为其对应的十六进制表示。通过实例演示了如何将二进制数 '0111111101011010' 转换为十六进制，并输出转换结果。

Function BinToHex(ByVal sBin As String) As String
Const BinChar = "0000000100100011010001010110011110001001101010111100110111101111"
Dim i As Integer, j As Integer, s As String
BinToHex = ""
sBin = "000" & sBin
sBin = Right(sBin, (Len(sBin) \ 4) * 4)
For i = Len(sBin) \ 4 - 1 To 0 Step -1
s = Mid(sBin, i * 4 + 1, 4)
For j = 0 To 14
If s = Mid(BinChar, j * 4 + 1, 4) Then Exit For
Next j
If j < 10 Then
BinToHex = Chr(j + Asc("0")) + BinToHex
Else
BinToHex = Chr(j - 10 + Asc("A")) + BinToHex
End If
Next i
End Function

Private Sub Form_Load()
Debug.Print BinToHex("0111111101011010")
End
End Sub