投稿日 | : 2005/05/27(Fri) 17:39 |
投稿者 | : GOD |
Eメール | : |
URL | : |
タイトル | : こんな方法も・・・ |
Private Sub Command1_Click()
Debug.Print HexToBin("F1")
End Sub
Private Function HexToBin(strHex As String) As String
Dim varBin As Variant
Dim strBin As String
Dim lngCount As Long
varBin = Array("0000", "0001", "0010", "0011", _
"0100", "0101", "0110", "0111", _
"1000", "1001", "1010", "1011", _
"1100", "1101", "1110", "1111")
strBin = ""
For lngCount = 0 To Len(strHex) - 1
strBin = strBin & (varBin("&H" & Mid(strHex, lngCount + 1, 1)))
Next
HexToBin = strBin
End Function