calcular la edad dando la fecha de nacimiento

No se hagan bolas, les sugiero una funcion personalizada que calcule la edad.
ahi les va.

Function Edad(NACIMIENTO As date)
dim AÑOS as integer, alto as boolean, SIGUE as date
Set AÑOS = 0
Set alto = False
SIGUE = DateSerial(Year(NACIMIENTO) + 1, Month(NACIMIENTO),
Day(NACIMIENTO))
Do While alto = False
If NACIMIENTO <= SIGUE And Date >= SIGUE Then
AÑOS = AÑOS + 1
SIGUE = DateSerial(Year(SIGUE) + 1, Month(SIGUE), Day(SIGUE))
Else
alto = True
End If
Loop
End If
edad = AÑOS
End Sub

LUEGO DESDE CUALQUIER CELDA LLAMAS A LA FUNCION íAD(FECHA)

ES INFALIBLE SALUDOS

hola, Edgar !

para que la propuesta (DE FUNCION personalizada) que expones, sea (realmente) "infalible"...
necesita que se le corijan dos o tres "detalles" (ahi te van):

1) no puedes usar la instruccion Set <variable_de_objeto> = ???
si tu <variable> NO fue declarada "como objeto" :-((

2) le esta "sobrando" una instruccion "End If" (la ante-penultima linea)

3) si estas definiendo un procedimiento "Function"...
NO puedes "terminarlo" con una instruccion "End Sub"

ya que hayas corregido estos puntos...
si comparas el "rendimiento" entre una UDF y las funciones integradas de excel (p.e.)

a) a tu funcion personalizada: =edad(fecha)
le toma 0.6 milisegundos obtener el resultado
(muchos "pasos" dentro del bucle Do While...Loop)

b) a la formula de la primera propuesta: =sifecha(fecha,hoy(),"y")
le toma 0.3 milisegundos obtener el resultado (la mitad que a una UDF)

(imagina usar una u otra para un rango "considerable" de celdas) :))

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la propuesta original __

No se hagan bolas, les sugiero una funcion personalizada que calcule la edad.
ahi les va.

Function Edad(NACIMIENTO As date)
dim AÑOS as integer, alto as boolean, SIGUE as date
Set AÑOS = 0
Set alto = False
SIGUE = DateSerial(Year(NACIMIENTO) + 1, Month(NACIMIENTO), Day(NACIMIENTO))
Do While alto = False
If NACIMIENTO <= SIGUE And Date >= SIGUE Then
AÑOS = AÑOS + 1
SIGUE = DateSerial(Year(SIGUE) + 1, Month(SIGUE), Day(SIGUE))
Else
alto = True
End If
Loop
End If
edad = AÑOS
End Sub

LUEGO DESDE CUALQUIER CELDA LLAMAS A LA FUNCION íAD(FECHA)

ES INFALIBLE SALUDOS