'==============================================================================================

' ##### размерность массива

'

'----------------------------------------------------------------------------------------------

Function RazmerArray(A) As Long

Dim k As Long

On Error GoTo KOH

j = LBound(A)

k = j '1

While UBound(A, k) >= LBound(A, k)

k = k + 1

Wend

KOH:

If k = 0 Then

RazmerArray = 0

Else

RazmerArray = k - 1

End If

End Function

Private Function nDx%(Arr) 'возвращает количество измерений массива Arr

Dim i%, X

On Error GoTo eXX ' увеличиваем i пока не получим ошибку попытки получить UBound по данному измерению

Do: i = i + 1: X = UBound(Arr, i): Loop

eXX: nDx = i - 1

End Function

'==============================================================================================