Problema para calcular la edad a partir de fecha de nac.

[Shizuka]

Hola! tengo tres comboboxes para
año, mes, y dia , tengo un text1 (invisible) para que concatene y se arege a la BD de MYSQL y haga la fecha con esto:

Text1.Text = Combo1.Text & "-" & Combo2.Text & "-" & Combo3.Text

y tengo un Text2 para que en el momento de que se presione el combo3
se lleve a cabo esto

Dim fecnac As Date, Edad1 As Integer
fecnac = CDate(Text1)
Edad1 = CInt((Date - fecnac) / 365)
Text2 = Str(Edad1) & " años"

Pero me sale un año màs y no entiendo por que, serà por el Text1 donde esto concatenando? es que lo tengo de esta manera para que se agrege en ese formato que usa mysql año/mes/dia por que VB con el mask text usa dia/mes/año

o tienen alguna otra idea de que puedo hacer? por que antes que usaba text box me iba bien, gracias :)

[patob]

Hola, en el mask podes usar el Format para darle formato a la fecha y que te la tome como en sql

[jeaguiar25]

Shizuka:
Yo lo declare así y me calculo bien

Private Sub Calcular_edad_Click()
Dim Edad As Integer

Text1 = dia.Text & "/" & mes.Text & "/" & año.Text

Fecnac = CDate(Text1)
Edad = CInt((Date - Fecnac) / 365)
Text2 = Edad & " Años "

End Sub


Private Sub Form_Load()
Text1 = ""
Text2 = ""
End Sub

En realidad lo único diferente a tu declaración fur suplantar "-" por "/" y el resultado de no lo declare como string, espero te sirva, estamos en contacto un abrazo.-

[Shizuka]

Que raro, me sigue saliendo un año màs, pongo 1988 10 27 y me salen 23 años deberian ser 22, muchas gracias por responder *3*

[pkj]

Prueba así:

Dim Edad As Integer
Edad = Int(Abs(DateDiff("d", Date, Text1.Text)) / 365)
MsgBox Edad

[Heimish2000]

¿Por qué no usas la función DateDiff?

[jeaguiar25]

Shizuka:
Si no te resulta lo que propuso pkj intenta esta solución rápida:

Código PHP:

  Edad = CInt(((Date - Fecnac) / 365) - 1)  
   

No debería de ser así pero resulta
Un Abrazo.-

[Shizuka]

Gracias por las respuestas, voy a probar las soluciones que me dan, gracias *3*