EXCEL列名轉成是第幾列解决方法

EXCEL列名轉成是第幾列
各位：
   在做EXCEL輸出時，我想做一個函數，通過坐標可以得到是在第幾列，比方說：A是第一列，B是第二列…………Z是第26列，AA2是27列，求算法。謝謝了。
[解决办法]
function TForm1.GetColNum(aColName: string): Integer;
var
  I,tmpLen : Integer;
begin
  tmpLen := Length(aColName);
  Result := 0;
  for I := 1 to tmpLen do begin
    if tmpLen - I > 0 then
      Result := Result + Trunc((Ord(aColName[I]) - 64) * Power(26,tmpLen - I ))
    else
      Result := Result + Trunc(Ord(aColName[I]) - 64);
  end;
end;