VB6 - Devolver dos valores en una función

[Laufwerk]

Hola amigos!!!
Necesito una función que me devuelva dos variables o un arreglo.
Mi función recibe un string , como este "Apellido1 Apellido2" y necesito devolver en una variable apellido1 y en otra apellido2, cómo lo hago?

Gracias!!!

[David]

Puedes devolver un array con varios valores. O de otra forma no tan elegante es pasar un parámetro ByRef y modificarlo directamente dentro de la función.

[Laufwerk]

podrías poneme algun ejemplo? ,asi lo veré mas claro.
El parámtro que estoy pasando es el campo de una tabla.


Gracias

[David]

Por ejemplo:

Código vb:

Function fArray(ByVal param As String)
' Primera forma, devolviendo directamente un array
Dim vReturn(1) As String
vReturn(0) = "primer valor"
vReturn(1) = "segundo valor"
fArray = vReturn
End Function
 
Sub fArray2(ByVal param As String, vReturn() As String)
'Segunda forma, tomando como parámetro ByRef un array y modificarlo
vReturn(0) = "primer valor"
vReturn(1) = "segundo valor"
End Sub
 

Y para usarlo sería:

Código vb:

'Primera forma
Dim vReturn() As String
vReturn = fArray("param")
MsgBox vReturn(0)
MsgBox vReturn(1)
 
'Segunda forma
Dim vReturn2(1) As String
fArray2 "param", vReturn2
MsgBox vReturn2(0)
MsgBox vReturn2(1)
 

Saludos .

[Laufwerk]

mil gracias!!!!

[Laufwerk]

h eprobado con la primera forma y me dice que no coinciden los tipos, te pongo aqui mi codigo

Código:

Function divApellido(ByVal surnames As String)
    Dim apellidos(1), valor() As String
    valor = Split(surnames, " ")
    apellidos(0) = valor(0)
    apellidos(1) = valor(1)
    divApellido = apellidos
End Function

y asi como la llamo

Código:

        
Dim apellidos() As String
       apellidos = divApellido(rsPeticions.Fields("papell_pac").Value)
       
       MsgBox apellidos(0)
       MsgBox apellidos(1)

Gracias!!!

[David]

Es que apellidos(1) en este caso se declara como Variant, por lo que al tratar de devolverlo y guardarlo en un array String dice que no coinciden los tipos. Declara así:

Código vb:

Dim apellidos(1) As String, valor() As String
 

Saludos .