Pasar parámetros a una función

[auxsys]

Ante todo, buenas!! A ver, quería hacer una función muy sencillita para sacar el menor de una serie de números. Al principio lo hice con ParamArray y todo bien, y luego pensé en pasar una matriz, y de nuevo, sin problema. La cuestión es que lo que me gustaría es usar las dos, pero de forma opcional... me explico.
A veces pasaré una serie de números, otras una matriz de número, y otras ambas cosas. Si sólo mando la serie, que me de el menor de la serie; si mando la matriz, que me de el menor de la matriz; y si mando las dos cosas, que me de el menor de ambas cosas. Bueno, ya está explicado. La cosa sería dejar los dos argumentos como opcionales, pero no sé si se puede, y si se puede, no encuentro la forma. No voy a pasar ningún argumento más... Bueno, gracias.

Salu00000010!!!

[David]

Iniciado por auxsys

Ante todo, buenas!! A ver, quería hacer una función muy sencillita para sacar el menor de una serie de números. Al principio lo hice con ParamArray y todo bien, y luego pensé en pasar una matriz, y de nuevo, sin problema. La cuestión es que lo que me gustaría es usar las dos, pero de forma opcional... me explico.
A veces pasaré una serie de números, otras una matriz de número, y otras ambas cosas. Si sólo mando la serie, que me de el menor de la serie; si mando la matriz, que me de el menor de la matriz; y si mando las dos cosas, que me de el menor de ambas cosas. Bueno, ya está explicado. La cosa sería dejar los dos argumentos como opcionales, pero no sé si se puede, y si se puede, no encuentro la forma. No voy a pasar ningún argumento más... Bueno, gracias.

Salu00000010!!!

No, no podrás hacerlo, porque ni una matriz ni ParamArray pueden ser argumentos opcionales.

[Txoco]

Efectivamente, ParamArray no puede ser opcional, pero puedes utilizar un pequeño truco, ya que ParamArray debes declararlo como Variant.

Dentro de la función, comprueba el tipo del primer elemento del ParamArray así:

Código:

Private Function MatrizOParam(ByVal ParamArray Matriz() As Variant) As Boolean
    ...
    If VarType(Matriz(0)) And vbArray <> 0 then
        ' El primer elemento es una matriz, puedes referenciar sus sub-elementos
        ' como Matriz(0)(0), Matriz(0)(1), etc.
    Else
        ' El primer elemento no es una matriz, así que puedes considerar leer el
        ' resto de parámetros de la función.
    End If
    ....
End Function

Además, para evitar errores, te recomiendo que lo primero que compruebes en la función es que el límite superior del ParamArray es mayor de -1, por si la llamas sin parámetros, así:

If UBound(Matriz) = -1 Then ' Se ha llamado a MatrizOParam sin argumentos

Espero que esto te sirva!

[auxsys]

Ups, me olvidé de este post... para que no me llamen desagradecido, aunque haya pasado un mes... pues gracias! Voy a intentar el truquillo ese, a ver qué tal.

Salu00000010!!!