Cách dùng Function trả về nhiều trị

[truongphu]

Chúng ta đã quen với function trả về đơn trị như đã khai báo. Muốn Function trả về nhiều hơn 1 trị số, người ta quen khai báo toàn cục để định nghĩa một kiểu TYPE có nhiều biến.

Sau đây là code mẫu để có thể function trả về nhiều biến:

Mã: [Chọn tất cả] [Mở rộng/Thu hẹp]

1. Private Function TraNhieuGiaTri(x%, y$, z$) As String() 'Dùng khi tri là string hay sô
2.    x% = x * 5 y$ = y & "ab" z$ = z & "mp"
3.     TraNhieuGiaTri = Split(x & "," & y & "," & z, ",")
4. End Function
5.  
6. Private Function TraNhieuTri(x%, y$, z!) As Variant 'Nên dung khi các tri phuc tap
7.    'Gia su cân tra vê 5 gia tri a, b, c, d, e
8.    Dim a%, b$, C As Date, d!, E As Boolean
9.     a% = x * 33 - 7
10.     If y = "Thu" Then b$ = "Mùa Thu Lá Bay" Else b = "Anh Ðã Ði Rôi"
11.     C = #6/22/2020#
12.     d = (a ^ 5) / 17
13.     E = True
14.     TraNhieuTri = Array(a, b, C, d, E)
15. End Function
16.  
17. Private Sub Form_Load()
18.     Dim ZZ$()
19.     ZZ = TraNhieuGiaTri(5, "q", "R")
20.     MsgBox ZZ(0) & ", " & ZZ(1) & ", " & ZZ(2)
21.    
22.     Dim RR As Variant
23.     RR = TraNhieuTri(12, "Thu", 3.55)
24.     MsgBox RR(0) & ",  " & RR(1) & ",  " & Format(RR(2), "dddd dd/m/yyy") & ",  " & RR(3) & ",  " & RR(4)
25. End Sub

GeSHi © Codebox Plus Extension

Hay không? Tiếc là VB6 đã chết!

[HaiPT]

VBscript, vba, vb6 giờ vẫn đang sống khỏe nhé

[MinhAnVanMan]

Còn đam mê thì không thể chết được