Obterner edad por medio de la fecha

[spiderman78]

Que tal de nuevo aqui con una consulta, ando tratando de lograr hacer que al momento que introduzca la fecha en un texbox en otro me muestre la edad, digamos q si pongo la fecha de naciemiento el 07 de julio de 2008, me muestre la edad de 30 años.....de antemano gracias por la ayuda...


Saludos

[franko1809]

Tio lo que necesitas es sencillo toma solo el año de la fecha de nacimiento por ejemplo 1980 y restas este numero con el año actual 2008 el resultado seria 28

[spiderman78]

Ok gracias, lo unico es que no se como hacer eso, en codigo, ya sea si tengo que poner algun formato al atexbox de fecha y como obtener solo el año... gracias por las respuestas

saludos

[franko1809]

Tio prodria se asi coloca 4 cajas de texto y un command eso te puede resolver el problema por ahora y para q tengas una idea de como hacerlo

Código:

Private Sub Form_Load()
Text1 = Year(Date) 'Extraigo el año de la fecha actual del sistema
Text2 = "18/9/1985" 'Fecha de nacimiento
End Sub

Private Sub Command1_Click()
Text3 = Right(Text2, 4) ' Extraigo 4 caracteres desde la derecha, el año
Text4 = Val(Text1) - Val(Text3)
End Sub

[Avellaneda]

Iniciado por franko1809

Tio prodria se asi coloca 4 cajas de texto y un command eso te puede resolver el problema por ahora y para q tengas una idea de como hacerlo

Código:

Private Sub Form_Load()
Text1 = Year(Date) 'Extraigo el año de la fecha actual del sistema
Text2 = "18/9/1985" 'Fecha de nacimiento
End Sub

Private Sub Command1_Click()
Text3 = Right(Text2, 4) ' Extraigo 4 caracteres desde la derecha, el año
Text4 = Val(Text1) - Val(Text3)
End Sub

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

[spiderman78]

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

[David]

Puedes usar el evento Change para mostrar la edad sin necesidad del botón, y para que aparezca en otro TextBox solo coloca:

Código vb:

Text2 = CalculaEdad(Text1)
 

[spiderman78]

Que tal, muchas gracias por la ayuda, me fue de mucha utilidad sus respuestas

saludos