categoria segun edad
Publicado por jero (14 intervenciones) el 18/11/2007 18:21:29
Hola a todos a ver si podeis ayudarme:
Tengo un formulario con diferentes registros nombre, apelidos, dni,FechaNto,edad,etc...
Donde la edad la calculo mediante la formula: =([Fecha]-[FechaNto])/365,24-0,5
Donde Fecha es el día que quiero saber la edad exacta que tiene, para segun esta establecer la categoría.
Y ahora quiero al introducir la FechaNto me asigne directamente la categoría segun la edad
Categoría edad
A Entre 16 y 19
B Entre 20 y 29
C Entre 30 y 39
D Entre 40 y 49
E Entre 50 y 59
F >60
G Feminas
Tengo esta funcion pero no se como aplicarla ni donde.
Function Categoria(datFechaNacimiento As Date) As String
Select Case Edad(datFechaNacimiento)
Case 16 To 19
Categoria = "A"
Case 20 To 19
Categoria = "B"
Case 30 To 39
Categoria = "C"
Case 40 To 49
Categoria = "D"
Case 50 To 59
Categoria = "E"
Case Else
Categoria = "F"
End Select
End Function
Si la pego en un modulo me deja de funcionar la edad.
Que me pasa.
Gracias
Tengo un formulario con diferentes registros nombre, apelidos, dni,FechaNto,edad,etc...
Donde la edad la calculo mediante la formula: =([Fecha]-[FechaNto])/365,24-0,5
Donde Fecha es el día que quiero saber la edad exacta que tiene, para segun esta establecer la categoría.
Y ahora quiero al introducir la FechaNto me asigne directamente la categoría segun la edad
Categoría edad
A Entre 16 y 19
B Entre 20 y 29
C Entre 30 y 39
D Entre 40 y 49
E Entre 50 y 59
F >60
G Feminas
Tengo esta funcion pero no se como aplicarla ni donde.
Function Categoria(datFechaNacimiento As Date) As String
Select Case Edad(datFechaNacimiento)
Case 16 To 19
Categoria = "A"
Case 20 To 19
Categoria = "B"
Case 30 To 39
Categoria = "C"
Case 40 To 49
Categoria = "D"
Case 50 To 59
Categoria = "E"
Case Else
Categoria = "F"
End Select
End Function
Si la pego en un modulo me deja de funcionar la edad.
Que me pasa.
Gracias
Valora esta pregunta
0