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

[luisgutierrezb]

se me ocurrio esto, cuestion de probarlo bien:

Código Delphi [-]
// basado en el codigo de Delphius

function AnioALetra(Anio: integer): string;
const
 LETRAS = 'KLMNPRSTVXZABCDEFHJ';
var dif: integer;
begin
 dif := (Anio + 14) mod 19 + 1;
 result := LETRAS[dif];
end;

[MaMu]

Empezado por luisgutierrezb

se me ocurrio esto, cuestion de probarlo bien:


Código Delphi [-]
// basado en el codigo de Delphius

function AnioALetra(Anio: integer): string;
const
LETRAS = 'KLMNPRSTVXZABCDEFHJ';
var dif: integer;
begin
dif := (Anio + 14) mod 19 + 1;
result := LETRAS[dif];
end;

SOLUCIONADO

Gracias a todos por la ayuda. Implemente esta funcion y el resultado fue optimo. Ahora bien, utilice un poco de todas las ideas para hacer una acorde a los cambios que necesitaba y logre solucionarlo.

Saludos

[MaMu]

Ahora, me surgio una duda. Que pasa si quiciera hacer el proceso inverso?? es decir, si segun la letra que introduzca, me devuelva al año que equivale, obviamente dentro de las 19 posibles letras.

Código Delphi [-]
 
function LetraAnio(Letra:string):string;
.....
 
...
//"2007"
Label1.Caption:=LetraAnio('T');

Saludos

[MaMu]

SOLUCIONADO

Gracias a todos por sus consejos. Ya he logrado hacerlo.

Saludos

[[egostar]]

Hola mamu, seria bueno y hasta cortés que postearas la solución para futuras consultas de compañeros que tengamos la misma duda.

Salud OS.

[MaMu]

Empezado por egostar

Hola mamu, seria bueno y hasta cortés que postearas la solución para futuras consultas de compañeros que tengamos la misma duda.

Salud OS.

Si, mil disculpas, se me pasó.

Esta es la solución, mas bien, una variante, pero que se ajustó perfectamente a mi aplicación.

Código Delphi [-]
function LetraAnio(Letra: string;Orden:Boolean):string;
const
 LETRAS = 'KLMNPRSTVXZABCDEFHJ';
var a,m,d:word;
    i,cont:integer;
begin
  cont:=0;
  DecodeDate(now(),a,m,d);
  for i:=1 to 19 do
    begin
      cont:=cont+1;
      if Orden=True
      then begin
      if Letra=LETRAS[i]
        then begin
          cont:=cont-1;
          if cont<=10 then Result:=IntToStr(2000+cont)
          else Result:=IntToStr(2000+cont-19);
        end;
      end
      else begin
      if Letra=LETRAS[i]
        then begin
          cont:=cont-1;
          if cont<=10 then Result:=IntToStr(2000+cont-19)
            else Result:=IntToStr(2000+cont);
        end;
      end;  
    end;
end;

Saludos

[luisgutierrezb]

a lo mejor es un poco tarde, pero se me ocurrio esto para lo inverso:

Código Delphi [-]
// basado en el codigo de Delphius

function LetraAAnio(Letra: Char): Integer;
const
  LETRAS = 'KLMNPRSTVXZABCDEFHJ';
var 
  i,j: integer; 
begin
  i := Pos(AnioALetra(Year(Now)), Letras);
  j := Pos(Letra, Letras);
  if i <= j then
    Result := Year(Now) + (j-i)
  else
    Result := Year(Now) - (i-j)
end;

[delphi.com.ar]

Yo tambien quiero:

Código Delphi [-]
const
   LETRAS = 'DEFHJKLMNPRSTVXZABC';
begin
   Result := LETRAS[(MyYear) mod 19 + 1];

Otra aún mas simple:

Código Delphi [-]
const
  LETRAS : array[0..19] of char = 'DEFHJKLMNPRSTVXZABC';
begin
  Result := LETRAS[(MyYear) mod 19];