> 昨日言ってた進数変換って↓こんなんでいいかな？
> Public Function h2d(h)
>     pt = Search(".", h, 1)
>     fLen = Len(h) - pt
>     intN = CDec(Left(h, pt - 1))
>     frac = Mid(h, pt + 1)
>     frN = 0
>     For i = 1 To fLen
>       frN = frN + CDec(Mid(frac, i, 1)) / 16 ^ i
>     Next
>     h2d = intN + frN
> End Function

プログラムの試験管もする俺の感想だが無駄が多すぎるな

参考：2007/05/03(木)22時46分31秒