|
Buenos días...
Cómo bien sabes.. no podemos guardar el valor de la edad de una persona.. porque este campo irá variando a medida que avanzamos de año... verdad?
Entonces lo que podemos hacer es incluir en nuestro formulario un campo independiente donde el valor del campo sería igual al valor de la función resultante de:
Function CalcularEdad() as integer
Dim intEdad as integer
if isnull(NombreCampoFechaNacimiento) then
intEdad=0
Else
intedad=DateDiff("yyyy",NombreCampoFechaNacimiento,Date())
If Month(NombreCampoFechaNacimiento)>month(date()) then
intEdad=intEdad-1
End if
End if
CampoEdad=intEdad
End Function
Espero que te aclares... :)
Saludos y hasta pronto.
Jordi Pérez i Madern
Mataró (Barcelona)
|
