' Символы системы счисления (до 35-ричной)
Private Const strChars          As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Public Const CONST_MAX_DIGIT    As Integer =  36       ' Система счисления по умолчанию
Public Const CONST_LEN_ID       As Integer =  7           ' Длина значащей части ID


' ============================================================
' Назначение:
'           Перевод десятичного числа в lngDigit-ую систему счисления
' Аргументы:
'           Число в десятичном представлении
'           Новая система счисления
'           Маска ввода
' Автор:    nibbles&sql.ru
' Пример: debug.print ConvertFromAny(126,2)
' ============================================================
Public Function ConvertFromAny(ByVal lngValue As Double, _
                                Optional ByVal iDigit As Integer = CONST_MAX_DIGIT, _
                                Optional ByVal iMaskFull As Integer = CONST_LEN_ID) As String
Dim a           As Double
Dim a1          As Double
Dim b           As Double

    ConvertFromAny = ""
    If lngValue <  0  Then Exit Function
    a1 = lngValue
    Do
        ' Результат целочисленного деления
        a = Int(a1 / iDigit)
        b = a1 - iDigit * a
        ConvertFromAny = Mid$(strChars, b +  1 ,  1 ) & ConvertFromAny
        a1 = a
        If a < iDigit And a >  0  Then
            ConvertFromAny = Mid$(strChars, a +  1 ,  1 ) & ConvertFromAny
            Exit Do
        End If
    Loop While a >  0 

    ' Добить маской
    If Len(ConvertFromAny) < iMaskFull Then
        ConvertFromAny = String$(iMaskFull - Len(ConvertFromAny), "0") & ConvertFromAny
    End If

End Function