coba liat lagi contohnya:
Function test() As Variant
Dim a(5) As Integer, i As Integer '<- deklarasi array bertipe integer
For i = 0 To 4
a(i) = i
Next i
test = a
End Function
Sub testrun()
Dim a As Variant, i As Integer
a = test '<<- sampai disini, variable a SUDAH BERUBAH menjadi array
yang sama dengan array hasil kembalian di fungsi test, yaitu array
bertipe integer
For i = 0 To UBound(a) - 1
Debug.Print a(i)
Next i
End Sub
jadi variable a MEMANG akan otomatis BERUBAH menjadi array dan bisa di
pakai seperti layaknya array, don't worry be happy :))
tapi ingat, pendeklarasian variable a ini BUKAN sebagai array, tapi
sebagai VARIANT.
tipe data variant dapat BERUBAH menjadi tipe data apapun, dalam kasus
ini, karena kita memberikan nilai a = hasil fungsi test dan fungsi
test itu sendiri mengembalikan variable ARRAY bertipe integer, maka
variable VARIANT a akan BERUBAH menjadi ARRAY integer juga.
best regards
[poer]
--- In [email protected], "kotz zaddock" <[EMAIL PROTECTED]> wrote:
>
> hm.. gitu ya.. tapi kalo hasil dari fungsi itu langsung masuk ke
array lain
> gimana?
>
> misal
> x=namafungsi()
>
> nah x itu misalnya adalah array, dan fungsi yang dipanggil
> mengembalikan/menghasilkan nilai dari array-nya dia..
> jadi bukan berupa "debug.print".. maklum kurang paham saya
>
> thanx
>
