zepp
14 de Julio del 2004

¿Cómo a partir de un par de fechas en formato "dd/mm/yyyy "puedo calcular la edad de alguien?

Muchas gracias a todos y saludos.

Max
14 de Julio del 2004

Dim LaFecha As Date ' Declara las variables.
Dim Msj
LaFecha = InputBox("Escriba una fecha")
Msj = "Días desde hoy: " & DateDiff("d", Now, LaFecha)
MsgBox Msj

mira a ver si te sirve este codigo

sdemingo
14 de Julio del 2004

Hola,

utiliza esta función a la que le pasas como parámtero la fecha de nacimiento del individuo en cuestión:

Private Sub calculaEdad(fechaNacimiento As Date)

Dim fechaNac() As String
Dim fechaAct() As String
Dim edad As String

fechaNac = Split(CStr(fechaNacimiento), "/", -1, vbBinaryCompare)
fechaAct = Split(Date, "/", -1, vbBinaryCompare)

edad = fechaAct(2) - fechaNac(2) - 1

If CInt(fechaAct(1)) > CInt(fechaNac(1)) Then
edad = edad + 1
ElseIf CInt(fechaAct(1)) = CInt(fechaNac(1)) Then
If CInt(fechaAct(0)) > CInt(fechaNac(0)) Then
edad = edad + 1
End If
End If

MsgBox "Tienes " & edad & " años"

End Sub

salu2
sdemingo

sdemingo
14 de Julio del 2004

Hola,

más fácil, una mezcal entre las dos funciones...

Dim LaFecha As Date

LaFecha = InputBox("Escriba una fecha")
MsgBox "Edad: " & Abs(Int(DateDiff("d", Now, LaFecha) / 365)) - 1 & " años"

salu2
sdemingo