指定された値をヘキサデシマル型の値に変換します
数値以外の値を指定すると数値に一番近い値に変換します
ec Hex(0)
'[2008/10/09 11:36:04]0
ec Hex(1)
'[2008/10/09 11:36:04]1
ec Hex(2)
'[2008/10/09 11:36:04]2
ec Hex(3)
'[2008/10/09 11:36:04]3
ec Hex(4)
'[2008/10/09 11:36:04]4
ec Hex(5)
'[2008/10/09 11:36:04]5
ec Hex(6)
'[2008/10/09 11:36:04]6
ec Hex(7)
'[2008/10/09 11:36:04]7
ec Hex(8)
'[2008/10/09 11:36:04]8
ec Hex(9)
'[2008/10/09 11:36:04]9
ec Hex(10)
'[2008/10/09 11:36:04]A
ec Hex("１")
'[2008/10/09 11:36:04]1
ec Hex("２")
'[2008/10/09 11:36:04]2
ec Hex("３")
'[2008/10/09 11:36:04]3
ec Hex("４")
'[2008/10/09 11:36:04]4
ec Hex("５")
'[2008/10/09 11:36:04]5
ec Hex("６")
'[2008/10/09 11:36:04]6
ec Hex("７")
'[2008/10/09 11:36:04]7
ec Hex("８")
'[2008/10/09 11:36:04]8
ec Hex("９")
'[2008/10/09 11:36:04]9
ec Hex("１０")
'[2008/10/09 11:36:04]A
'メッセージ表示用
Sub ec(strmsg)
Wscript.Echo "[" & Date & " " & time & "]" & strmsg
end Sub
