16進数から１０進数へ

　16進数から１０進数への関数を教えてください。

ＶＢでです。

ＨＥＸという関数は１０から１６ですよね。

No.1 ベストアンサー 回答者： 2002pon 回答日時： 2002/09/04 16:09

こんにちは

CDec(&H2C)
ていう感じでしょうか。（答えは44）

No.4 回答者： imogasi 回答日時： 2002/09/04 21:19

皆さん１バイト（１６進２桁）を前提にしておられるようだが

実は問題になるのは通常は、多桁のものであるはず。
少数データでしかテストしていないが下記を私家製の関数化して使ってください。
Sub test01()
tbl = "0123456789abcdef"
' s = "3ffc01"
' s = "fc"
' s = "c1fc"
s=InputBox("１６進表現数＝")
n = 0
j = 0
For i = Len(s) To 1 Step -1
a = Mid(s, i, 1)
p = InStr(tbl, a)
' MsgBox "p=" & p
If p = 0 Then
MsgBox "Error"
End If
n = n + (p - 1) * 16 ^ j
j = j + 1
Next i
MsgBox n
End Sub

この回答へのお礼

皆様　ご回答ありがとうございました。

お礼日時：2002/09/10 20:33

No.3 回答者： taka_tetsu 回答日時： 2002/09/04 17:31

どれでもどうぞ。

違いはヘルプを参照してください。


a = "&HF"
MsgBox CInt(a)
MsgBox CLng(a)
MsgBox CDbl(a)

No.2 回答者： SHJYOR 回答日時： 2002/09/04 17:04

HEX関数は、10進から16進の変換ではなく、数値を16進文字列に変換する関数です。

例えば...
　　Hex( 44 ) → "2C"
　　Hex( 256 ) → "100"
　　Hex( &H2C ) → "2C"
と、なります。これら16進文字列を数値に戻そうとするなら、Val( "&H" + str ) や CDec( "&H" + str ) で良いと思います(strは16進文字列)。

ですから、例えば、テキストボックスText1に入力した16進文字列を10進文字列に変換してテキストボックスText2にセットしたいとすれば、

　　Text2.Text = CStr( CDec( "&H" + Text1.Text ) )

とすれば変換できると思います(ただしText1に正しい16進文字列がセットされていなければエラーが出ると思いますが...)。

私は普段VBをあまり使わないので絶対の自信はありませんが、こんな感じでよいのではないでしょうか。