MyTetra Share
Делитесь знаниями!
размерность массива
Время создания: 16.03.2019 23:43
Текстовые метки: размерность массива, array, RazmerArray
Раздел: !Закладки - VBA - Array
Запись: xintrea/mytetra_db_adgaver_new/master/base/1518896784w06axio1ot/text.html на raw.githubusercontent.com

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

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

'

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

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

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

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования