Funkcija Partition [VBA]
Vrne niz, ki nakazuje, kje se v izračunanem nizu obsegov pojavlja število.
To konstanto, funkcijo ali predmet omogočimo z ukazom Option VBASupport 1, ki ga moramo vstaviti pred izvedljivo programsko kodo v modulu.
Partition(Število, Začetek, Konec, Interval)
String
Število: obvezno. Število, ki določa razdelitev.
Začetek: obvezen. Celo število, ki določa spodnjo vrednost obsega števil.
Konec: obvezno. Celo število, ki določa zgornjo vrednost obsega.
Interval: obvezen. Celo število, ki določa velikost delov v obsegu števil (med Začetek in Konec).
Option VBASupport 1
Option Explicit
Sub Test_Partition
Dim retStr As String
retStr = Partition(20, 0, 98, 5)
print "20:24 Število 20 se pojavi v obsegu: " & retStr
retStr = Partition(20, 0, 99, 1)
print " 20: 20 Število 20 se pojavi v obsegu: " & retStr
retStr = Partition(120, 0, 99, 5)
print "100: Število 120 se pojavi v obsegu: " & retStr
retStr = Partition(-5, 0, 99, 5)
print " : -1 Število -5 se pojavi v obsegu: " & retStr
retStr = Partition(2, 0, 5, 2)
print " 2: 3 Število 2 se pojavi v obsegu: " & retStr
End Sub