fechas
Publicado por magartre (70 intervenciones) el 25/01/2008 18:03:02
Hola atod@s, tengo una duda que no soy capaz de resolver, cuando salgo de un campo determinado quiero que me haga una diferencia entre dos fechas para poner en otro campo un dato, el código que utilizo es.
Private Sub categoria_EXIT(Cancel As Integer)
If Year(Date) - Year([fechanacimiento]) >= 18 Then
Me.categoria = "SENIOR"
ElseIf Year(Date) - Year([fechanacimiento]) >= 16 Then
Me.categoria = "CADETE"
ElseIf Date - [fechanacimiento] <= 14 Then
Me.categoria = "INFANTIL"
ElseIf Date - [fechanacimiento] <= 12 Then
Me.categoria = "ALEVIN"
ElseIf Year(Date) - Year([fechanacimiento]) <= 10 Then
Me.categoria = "BENJAMIN"
ElseIf Year(Date) - Year([fechanacimiento]) <= 8 Then
Me.categoria = "ARDILLA"
End If
End Sub
Como veis quiero en función de la diferencia de años,8,10,12,14, etc, entre la fecha actual y la de nacimiento me ponga una u otra categoría.
Este código no me funciona y no encuentro el error.
Gracias anticipadas
Private Sub categoria_EXIT(Cancel As Integer)
If Year(Date) - Year([fechanacimiento]) >= 18 Then
Me.categoria = "SENIOR"
ElseIf Year(Date) - Year([fechanacimiento]) >= 16 Then
Me.categoria = "CADETE"
ElseIf Date - [fechanacimiento] <= 14 Then
Me.categoria = "INFANTIL"
ElseIf Date - [fechanacimiento] <= 12 Then
Me.categoria = "ALEVIN"
ElseIf Year(Date) - Year([fechanacimiento]) <= 10 Then
Me.categoria = "BENJAMIN"
ElseIf Year(Date) - Year([fechanacimiento]) <= 8 Then
Me.categoria = "ARDILLA"
End If
End Sub
Como veis quiero en función de la diferencia de años,8,10,12,14, etc, entre la fecha actual y la de nacimiento me ponga una u otra categoría.
Este código no me funciona y no encuentro el error.
Gracias anticipadas
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0