１６進数の1〜Fを01〜0Fと表示させるには？ (ID:117583)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 type tLong n as long end type type tBytes n(1 to 4) as byte end type function ColToHexStr(byval col as long) as string dim vLong as tLong dim vBytes as tBytes dim v as variant vLong.n=col lset vBytes=vLong for each v in vBytes.n ColToHexStr=right$("0"+hex$(v),2)+ColToHexStr next end function ゎはは。