Sau đây là code mẫu để có thể function trả về nhiều biến:
- Private Function TraNhieuGiaTri(x%, y$, z$) As String() 'Dùng khi tri là string hay sô
- x% = x * 5 y$ = y & "ab" z$ = z & "mp"
- TraNhieuGiaTri = Split(x & "," & y & "," & z, ",")
- End Function
- Private Function TraNhieuTri(x%, y$, z!) As Variant 'Nên dung khi các tri phuc tap
- 'Gia su cân tra vê 5 gia tri a, b, c, d, e
- Dim a%, b$, C As Date, d!, E As Boolean
- a% = x * 33 - 7
- If y = "Thu" Then b$ = "Mùa Thu Lá Bay" Else b = "Anh Ðã Ði Rôi"
- C = #6/22/2020#
- d = (a ^ 5) / 17
- E = True
- TraNhieuTri = Array(a, b, C, d, E)
- End Function
- Private Sub Form_Load()
- Dim ZZ$()
- ZZ = TraNhieuGiaTri(5, "q", "R")
- MsgBox ZZ(0) & ", " & ZZ(1) & ", " & ZZ(2)
- Dim RR As Variant
- RR = TraNhieuTri(12, "Thu", 3.55)
- MsgBox RR(0) & ", " & RR(1) & ", " & Format(RR(2), "dddd dd/m/yyy") & ", " & RR(3) & ", " & RR(4)
- End Sub
Hay không?

