| |
YU-TANGさん
回答をいただき、ありがとうございます。早速やってみましたので、結果を
報告します。なんか結果がただしくないようです、その原因はなんでしょうか？
ご指導ください。
クエリの中に、8桁の文字列を使って、
文字列 変換値:fncTemp([文字列],8)
ABCDEFGH 24309841 ・・・・＞36進数ABCDEFGHからの10進数結果ではない
Function fncTemp(ByRef Num As String, ByRef BaseNum As Long)
Dim strList As String
Dim lngResult As Long
Let strList = "0123456789ABCDEFG...Z"
Dim IDX As Long
For IDX = 1 To Len(Num)
Let lngResult _
= lngResult _
+ (InStr(1, strList, Mid(Num, IDX, 1), vbBinaryCompare) - 1) _
* BaseNum ^ (Len(Num) - IDX)
Next
Let fncTemp = lngResult
End Function
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
