Access - Limite de edad

   
Vista:

Limite de edad

Publicado por karen yulilai14@hotmail.com (24 intervenciones) el 12/01/2012 16:58:03
Buenos Dias:

Estoy realizando una base de datos donde se ingresan afiliaciones de personas en seguros funenarios pero el limite de edad es de 75 años de edad.....
como hago para cuando ingrese la fecha de nacimiento el sistema compruebe que no se pasa de esa edad y permita inresarlo de lo contrario arroje un mensaje.....

Les agradezco la ayuda lo antes posible es que lo e intentado de varias maneras y no e podido....


ATT:
Karen Laiseca
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Limite de edad

Publicado por Jefferson (381 intervenciones) el 12/01/2012 17:11:12
Hola Karen

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
' retorna los años
''''''''''''''''''''''''''''''''''''''
Function Calcular_Edad(Fecha_Nacimiento As Variant) As Integer
Dim Años As Variant
' comprueba si el valor no es nulo
If IsNull(Fecha_Nacimiento) Then
Calcular_Edad = 0
Exit Function
End If
 
Años = DateDiff("yyyy", Fecha_Nacimiento, Now)
 
If Date < DateSerial(Year(Now), Month(Fecha_Nacimiento), _
Day(Fecha_Nacimiento)) Then
Años = Años - 1
End If
 
Calcular_Edad = CInt(Años)
End Function
 
'Y para usarlo
Private Sub UnBoton_Click()
If Calcular_Edad(#12/3/1935#) >= 75 Then MsgBox "supera los 75 Años"
End Sub




Desde Venezuela
Jefferson
https://sites.google.com/site/jjjt1973/ejemplos-access
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar