[dec]

Hola,

Código Delphi [-]
  function IntToBase(Value: Integer; const Pattern: string): string;
  var
    B, R: Integer;
  begin
    Result := '';
    B := Length(Pattern); { Base }
    repeat
      R := Value mod B; { Resto }
      Result := Pattern[R+1] + Result;
      Value := Value div B;
    until Value = 0;
  end;

Yo con la función "IntToBase" ya tengo para estudiar lo que queda de año. Gracias Federico. Qué envidia, chico. Te felicito.