Cita:
Empezado por Delphius
Si es como dices, que debe computarse dese una fecha más temprana puedes modificarla.
Estoy viendo porqué algo no me está andando el código... me parece raro. No logro ver donde estoy metiendo mal la pata.
Saludos,
|
Yo lo que pienso, es jugar con la cantidad de Letras (18), y sus condiciones de <, > e =. Puesto a que puedo hacer:
Código Delphi
[-]
function AnnoALetra(Anno: integer): string;
const
LETRAS = 'KLMNPRSTVXZABCDEFHJ';
var dif: integer;
begin
dif := Anno mod 2000; if dif<=18 then result := LETRAS[dif + 1];
if dif>18 then result := LETRAS[dif - 18];
end;
Lo que me faltaria, es usar una variable multiplo de 18, cosa de mantener su valor de entre 0 y 18.
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;