[[Delphius]]

Bueno, creo que ahora si podría andar. Al menos, la he probado y está funcionando. Se pueden hacer algunas comprobaciones extras, pero creo que la idea está:

Código Delphi [-]
function TForm1.AnnoALetra(Anno, AnnoIni: integer): string;
const
 LETRAS = 'KLMNPRSTVXZABCDEFHJ';
var dif: integer;
begin
 dif := Anno mod AnnoIni; //AnnoIni es el primer año a computar
 dif := dif mod Length(LETRAS);
 result := LETRAS[dif+1];
end;

Saludos,