Hola a todos.
Alguien me puede echar un cable en como traducir el case siguiente?
Este está escrito en VB y lo quiero usar en Delphi, o algo parecido
Código:
Select Case codi
Case 1
cursa.categoria = "E-UCI": cursa.competicion = "C"
Case 2
cursa.categoria = "ELITE": cursa.competicion = "C"
Case 3
cursa.categoria = "SUB23": cursa.competicion = "C"
Case 80
cursa.categoria = "SUB23": cursa.competicion = "C"
Case 4
min% = Val(Right$(date$, 4)) - 17
max% = Val(Right$(date$, 4)) - 18
If Val(Mid$(cursa.codiUCI, 4, 4)) = min% Then
cursa.categoria = "JUN-1": cursa.competicion = "C"
ElseIf Val(Mid$(cursa.codiUCI, 4, 4)) = max% Then
cursa.categoria = "JUN-2": cursa.competicion = "C"
End If
End Select
Lo que no acabo de entender es la forma en que VB realiza el calculo de la diferencia entre el año actual y el año de la fecha de nacimiento para calcular la edad.
Como siempre gracias por adelantado a los que me leeis.
Saludos
Josep