Calcular Año (condición cíclica)

[[Delphius]]

No la he probado... yo me estoy imaginando algo como esto:


EDITO:

Código Delphi [-]
function TForm1.AnnoALetra(Anno: integer): string;
const
 LETRAS = 'KLMNPRSTVXZABCDEFHJ';
var dif: integer;
begin
 dif := Anno mod  2000; //2000 es el primer año a contabilizar
 id Dif = 0
   then Dif = 1;
 result := LETRAS[(dif div Length(LETRAS))];
end;

Ahora si debería andar.
Saludos,