Excel kolonner, konvetere 678 --> ABC

Fandt selv ud af det

function ColumnToNumber(Value: string): Integer;
var
  NumIndex: Integer;
  Ch: Char;
  iC: Integer;
  Exponent: Integer;
begin
  Value := AnsiUpperCase(Value);
  Result := -1;
  NumIndex := IndexOfNumber(Value);

  if NumIndex = 0 then
    Exit;

  Delete(Value, NumIndex, MaxInt);

  Result := 0;

  while Length(Value) > 0 do
  begin
    Ch := Value[1];
    iC := (Ord(ch) - 64);
    Exponent := Length(Value) - 1;
    Result := Result + Trunc(Power(26, Exponent) * iC);
    Delete(Value, 1, 1);
  end;
end;

function NumberToColumn(Value: Integer): string;
const
  Base = 26;
var
  I, Rad: Integer;
  ColValues: array[0..Base - 1] of Char;
begin
  for I := 65 to 65 + Base - 1 do
    ColValues[I - 65] := char(I);

  Result := '';

  I := 0;

  while Value > 0 do
  begin
    Rad := Round(Value / Power(Base, I)) mod Base;
    Dec(Value, Trunc(Rad * Power(Base, I)));
    Result := ColValues[Rad - 1] + Result;
    Inc(I);
  end;
end;


Disse to funktioner er hinandens resiprokke !!

Jens B;