16進数⇔10進数

デジカメのExif情報を抜き出そうとしたら、なんだかメンドクサイぞ。まぁ、気長にやるか。

16進数を10進数に

Dim Tag As Long
Tag = CLng("&H" & item.Id)

10進数を16進数に

Dim ItemID As String
ItemID = Hex(Tag)

ちなみにCLng関数は、

指定された式をバリアント型 (内部処理形式が長整数型 (Long) の Variant) に変換して返します。

Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45: MyVal2 = 25427.55   ' MyVal1 と MyVal2 は、倍精度浮動小数点数型 (Double) です。
MyLong1 = CLng(MyVal1)   ' MyLong1 は、25427 です。
MyLong2 = CLng(MyVal2)   ' MyLong2 は、25428 です。

メモ : CLng 関数は小数部分を丸めますが、Fix 関数と Int 関数は小数部分を切り捨てます。小数部分が 0.5 の場合は、CLng 関数は常に最も近い偶数に値を丸めます。たとえば、0.5 を 0 に、1.5 を 2 に、それぞれ丸めます。

CLng 関数

です。