como saber el año en ke estamos!!!

alex the pc boy · #1 (**permalink**) 23/01/2006, 10:52

bueno foreros mi pregunta es simple con ke funcion puedo hacer ke la edad de una persona.. se ponga sola... osea ... ke con los datos "dia","mes",año" introducidos... pueda sacar la edad de un solo!!!

vbx3m · #2 (**permalink**) 23/01/2006, 11:10

En las FAQ´S hay un tema sobre restar fechas y horas revisalo

jc_moty · #3 (**permalink**) 23/01/2006, 16:19

Bueno, la forma mas simple de hacer eso es restando el año actual con el año de nacimiento:

Código:

edad = Year(Date) - Year(txtFechaNacimiento)

Ahora que si queres algo mas exacto, tendrias que verificar el mes y el dia:

Código:

If Month(Date) = Month(txtFechaNacimiento) Then
    If Day(Date) >= Day(txtFechaNacimiento) Then
        edad = Year(Date) - Year(txtFechaNacimiento)
    Else
        edad = (Year(Date) - 1) - Year(txtFechaNacimiento)
    End If
End If
MsgBox edad

Saludos

vbx3m · #4 (**permalink**) 24/01/2006, 08:13

Tambien podrias probar asi:

Código:

Private Sub Command1_Click()
Dim fecha1, fecha2
fecha1 = DateValue(Text1.Text) 'Fecha Actual
fecha2 = DateValue(Text2.Text) 'Fecha de Nacimiento
MsgBox "Tu edad: " & Int((fecha1 - fecha2) / 365)
End Sub

ciudadcarmelo · #5 (**permalink**) 24/01/2006, 17:00

Existen WebServices para eso también.
Saludos.

GeoAvila · #6 (**permalink**) 24/01/2006, 21:06

Cita:

Iniciado por ciudadcarmelo

Existen WebServices para eso también.
Saludos.

???

no comprendi esta parte de webservices...???

alex the pc boy · #7 (**permalink**) 25/01/2006, 13:42

oye vbx3m me parece buena la idea lo voy a probar.... gracias x todo.... te aviso luego si me funciona eh

alex the pc boy · #8 (**permalink**) 25/01/2006, 13:45

ya ti tambien jc_moty y a todos lo ke aportaron ideas