Funcoes

[ramon]

Estou enviando tres valores para minha funcao gostaria que retorna-se outros 3 valores tem como fazer isso ou so retornara um valor

Function teste(A As Integer, B As Integer, C As Integer) As Integer

End Function


ret = teste(t, y, z)

[Decio]

você pode passar os valores por referencia, como no exemplo abaixo:

Private Sub Command1_Click()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    
    a = 1
    b = 2
    c = 3

   teste a, b, c

 MsgBox a & "-" & b & "-" & c
   
End Sub
'*********************************************************
Sub teste(ByRef c As Integer, ByRef d As Integer, ByRef e As Integer)

   c = 4
   d = 5 
   e = 6

End Sub

[Graymalkin]

Você pode retornar com um array de variantes, exemplo:

Function teste(A As Integer, B As Integer, C As Integer)
  teste = array(a, b, c)
End Function

...

ret = teste(t, y, z)

for each r in ret
  debug.print r
next r

Certo?

Abraços,

Graymalkin

[ramon]

Array ......é bem lembrado

valeu