表紙 > VB6 サンプル >

VB6

10進数と16進数を変換する

１．10進数→16進数

以下の関数Convert10to16を使うと、10進数を16進数を表現する文字列に変換できる。

たとえば、Convert10to2(123) = "7B" となる。

 

'■Convert10to16 '■機能：10進数を16進数に変換する。 Private Function Convert10to16(Value As Long) As String     Convert10to16 = Hex(Value) End Function

メモ：プログラムを見るとわかるように、10進数から16進数への変換はHex関数を使うだけで簡単に実現可能です。

２．16進数→10進数

以下の関数Convert16to10を使うと、16進数を表現する文字列を10進数に変換できる。

たとえば、Convert16to10("7B") = 123 となる。

 

'■Convert16to10 '■機能：16進数を10進数に変換する。 Private Function Convert16to10(Value As String) As Long     Convert16to10 = CLng("&H" & Value) End Function