IBM Lotus Symphony


Instrucción Function [Ejecución]

Define una subrutina que puede usarse como expresión para determinar un tipo de retorno.

Sintaxis

Consulte Parámetro.

Parámetros:

Sintaxis

Function Nombre[(NombVar1 [As Tipo][, NombVar2 [As Tipo][,...]]]) [As Tipo]

bloque de instrucciones

[Final de la función]

bloque de instrucciones

End Function

Parámetro

Nombre: Nombre de la subrutina que contendrá el valor devuelto por la función.

NombVar: Parámetro que se pasará a la subrutina.

Tipo: Palabra clave de declaración de tipo.

Ejemplo:

Sub EjemploSalida

Dim sRetorno As String

Dim sMatrizLista(10) as String

Dim siPaso as Single

For siPaso = 0 to 10 REM Rellenar matriz con datos de prueba

sMatrizLista(siPaso) = chr$(siPaso + 65)

msgbox sMatrizLista(siPaso)

next siPaso

sRetorno = BuscaLin(sMatrizLista(), "B")

Print sRetorno

end sub

Function BuscaLin( sLista(), sElem As String ) as integer

dim iContador as Integer

REM BuscaLin busca en MatrizTexto:sLista() una EntradaTexto:

REM El valor de retorno es el índice de la entrada o 0 (Nulo)

for iContador=1 to Ubound( sLista() )

if sLista( iContador ) = sElemen then

exit for REM encontrado sElemen

end if

next iContador

if iContador = Ubound( sLista() ) then iContador = 0

BuscaLin = iContador

end function


Comentarios del producto | Documentación adicional | Marcas registradas