2進数と16進数の相互変換

VBScriptで
2進数と16進数の相互変換をしたいのですが、
進数を変換する関数としては、
Hex関数やOct関数ぐらいしか見当たりません。
どうしたらいいのでしょうか？
よろしくお願いします。

No.1 ベストアンサー 回答者： hofuhofu 回答日時： 2003/12/27 14:16

無ければ作るまでです。

Dim MyBin, MyHex
MyBin = Hex2Bin("FF")
WScript.Echo MyBin
MyHex = Bin2Hex(MyBin)
WScript.Echo MyHex

Function Hex2Bin(Hex)
Dim Dec
Dec = CInt("&H" + Hex)
Hex2Bin = Dec2Bin(Dec)
End Function

Function Bin2Hex(Bin)
Dim Dec
Dec = Bin2Dec(Bin)
Bin2Hex = Hex(Dec)
End Function

Function Dec2Bin(ByVal Dec)
Do
Dec2Bin = CStr(Dec Mod 2) & Dec2Bin
Dec = Dec \ 2
Loop Until Dec = 0
End Function

Function Bin2Dec(Bin)
For i=1 To Len(Bin)
Bin2Dec = Bin2Dec * 2 + CInt(Mid(Bin,i,1))
Next
End Function

この回答へのお礼

なるほど、変換出来てます。
どうもありがとうございました。

お礼日時：2003/12/27 19:14