Функция Partition [VBA]

Връща низ, показващ къде се среща дадено число в изчислена поредица от интервали.

warning

Тази константа, функция или обект се разрешава с оператора Option VBASupport 1, поставен преди изпълнимия програмен код в модула.


Синтаксис:

Partition(Number, Start, Stop, Interval)

Резултат:

String

Параметри:

Number: задължителен. Числото, за което се търси интервалът.

Start: задължителен. Цяло число, определящо най-ниската стойност на диапазона от числа.

Stop: задължителен. Цяло число, определящо най-високата стойност на диапазона.

Interval: задължителен. Цяло число, указващо размера на интервалите, на които е подразделен числовият диапазон (между Start и Stop).

Пример:


        Option VBASupport 1
        Option Explicit
        Sub Test_Partition
            Dim retStr As String
            retStr = Partition(20, 0, 98, 5)
            print "20:24  числото 20 се среща в интервала: " & retStr
            retStr = Partition(20, 0, 99, 1)
            print " 20: 20 числото 20 се среща в интервала: " & retStr
            retStr = Partition(120, 0, 99, 5)
            print  "100:  числото 120 се среща в интервала: " & retStr
            retStr = Partition(-5, 0, 99, 5)
            print "   : -1 числото -5 се среща в интервала: " & retStr
            retStr = Partition(2, 0, 5, 2)
            print " 2: 3 числото 2 се среща в интервала: " & retStr
        End Sub
    

Моля, подкрепете ни!