Crear Procedimientos Function

Ahora que sabemos prácticamente todo de los procedimientos Sub y como crearlos, es el momento de descubrir lo útiles que pueden ser los procedimientos de Function.

Solo los procedimientos de Function pueden hacer lo siguiente:

• Derivar un valor.
• Devolver un valor al proyecto.

La sintaxis de la instrucción Function consta de las siguientes partes:

[Public | Function nombre [(lista_argumentos)] [As tipo]

Veamos el siguiente ejemplo:

Public Function CalcEdad(fechaNac As Date)

Dim zFecha As Date

'DateDiff especifica el número de intervalos de tiempo entre dos fechas determinadas (yyyy Año).

CalcEdad = Abs(DateDiff("yyyy", fechaNac, Date))

'DateAdd Devuelve un valor de tipo Variant (Date) con una fecha a la que se ha agregado un intervalo de tiempo especificado.

zFecha = DateAdd("yyyy", CalcEdad, fechaNac)

If zFecha > Date Then CalcEdad = CalcEdad - 1

End Function 

Este ejemplo nos muestra la importancia de los argumentos de las funciones, cuanto más explícito sean, más fácil serán de usar en la función.

Todas las funciones declaradas en Public están disponibles en el asistente de funciones en la categoría Funciones Definidas por el Usuario.

El resultado de la formula con esta función quedaría de la siguiente forma en Excel.