Cita:
Iniciado por Avellaneda 
Bueno, esa es una forma de hacerlo, pero no es correcta del todo.
p.e. si le pongo la fecha de nacimiento "18/11/1995" me dá como resultado 23 años, cuando todavía no los ha cumplido.
Otra opción es una función como ésta:
Código:
Function CalculaEdad(ByVal DataIni As Date) As Integer
CalculaEdad = DateDiff("yyyy", DataIni, Date)
If (Month(DataIni) > Month(Date)) Or (Month(DataIni) = Month(Date) _
And Day(DataIni) > Day(Date)) Then CalculaEdad = CalculaEdad - 1
End Function
para llamarla y comprobar el resultado:
Código:
Private Sub Command1_Click()
Dim iAños As Integer
iAños = CalculaEdad(Text1)
MsgBox iAños
End Sub
Que tal, ya probe el codigo y funciona perfectamente bien, solo una cuestion mas, como podria hacer para que pueda calcular la edad sin necesidad en un boton command y que me muestre la edad en un textbox en lugar de un msgbox, saludos y gracias por la ayuda
