Foro de programacion

Hola, me estoy iniciando en la programciion de vb y necesito ayuda para calcular la edad entre dos fechas

Te adjunto una función que ingresando la fecha de nacimiento te devuelve los años

Public Function Edad(ByVal FechaNac As Date) As Long
Dim Hoy As Date, Dias As Long
Dim Anos As Long, BisiestosHoy As Long
Dim BisiestosNac As Long, TotBisiestos As Long
Hoy = Date
BisiestosHoy = Int((Year(Hoy) - 2000) / 4)
BisiestosNac = Int((2000 - Year(FechaNac)) / 4)
TotBisiestos = BisiestosNac + BisiestosHoy + 1 '+1 porque el 2000 es bisiesto
Dias = Hoy - FechaNac
Dias = Dias - TotBisiestos
Anos = Int(Dias / 365)
If Anos < 0 Then Anos = 0
Edad = Anos
End Function

Saludos, julioalbertogarcia@hotmail.com

también puedes usar la función datediff de la siguiente forma:

datediff(intervalo, fechainicial,fechafinal)

elemplo en años:

datediff("yyyy", #1/01/2000#,#5/05/2005#)

'te da como resultado 5 (años obviamente)