[jafera]

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

 
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