| |
以下のコードを使って、進数変換を実行したいと思いますが、
デバッグをかけると、compileエラーが出ています。問題はどこにあるのか
わからりません。
アドバイスを求めて、投稿しました。
よろしくお願いいたします。
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
コードソースを使って
Function Conv_Number(ByVal Number As Long, ByVal N As Integer)
If N <= 1 Or N > 36 Then Exit Function
Const DigitChr As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim RESULT() As Variant
ReDim RESULT(0)
If Number <= 1 Then
RESULT(0) = Number
Else
Do While Number > 0
RESULT(UBound(RESULT)) = Mid$(DigitChr, (Number Mod N) + 1, 1)
Number = Number \ N
If Number > 0 Then ReDim Preserve RESULT(UBound(RESULT) + 1)
Loop
End If
Conv_Number = RESULT
Erase RESULT
End Function
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
