Funkcija Partition [VBA]

Vrne niz, ki nakazuje, kje se v izra─Źunanem nizu obsegov pojavlja ┼ítevilo.

warning

To konstanto, funkcijo ali predmet omogo─Źimo z ukazom Option VBASupport 1, ki ga moramo vstaviti pred izvedljivo programsko kodo v modulu.


Skladnja:

Partition(┼átevilo, Za─Źetek, Konec, Interval)

Vrnjena vrednost:

String

Parametri:

┼á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 ┼ítevil.

Interval: obvezen. Celo ┼ítevilo, ki dolo─Źa velikost delov v obsegu ┼ítevil (med Za─Źetek in Konec).

Primer:


        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
    

Podprite nas!