Cita:
|
Empezado por Delphius
No la he probado... yo me estoy imaginando algo como esto:
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
result := LETRAS[dif + 1];
end;
No lo he probado totalmente... habría que ver...
Saludos, |
Está muy bien, retocando la sugerencia me quedo casi igual, ahora bien, que pasa si intento averiguar a que letra corresponde el año 1994, estoy en problemas porque defini que el ciclo arranque del 2000. Inicié del 2000 porque seria lo mas actual del ciclo, pero deberia arrancar de 1950. Y al llegar al tope maximo, volver a empezar. En este caso el año 2018 es la J, pero el 2019 deberia ser la K nuevamente y asi suscesivamente.
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;