Funcion de Carcar
Esta función calcularía los años que tiene una persona, ignorando días
adicionales:
Function Años(Fecha As Date) As Integer
Dim NuevaFecha As Date
Años = 0
NuevaFecha = DateAdd("yyyy", 1, Fecha)
Do While NuevaFecha <= Date
Años = Años + 1
NuevaFecha = DateAdd("yyyy", 1, NuevaFecha)
Loop
End Function
La función anterior tal cual está la entras en un módulo, pestaña de
módulos, nuevo módulo, metes lo anterior, lo guardas y listo (el
nombre para el módulo es indiferente.
Lo que deberías colocar en la propiedad origen del control del cuadro
de texto sería:
=Años([Fecha])
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)