數字轉為ABC之函數，最高2碼英文字母

程式目的:

數字轉ABC英文字母,1-->A,26-->Z,27-->AA，以利程式操作Excel時之欄位對應與迴圈撰寫

程式碼:

function NInttoABC(vInt:Integer):string;//傳入整數值
var i,j:Integer;
    vString:String;
begin
  if vInt>26 then i:=vInt div 26//超過第Z欄之處理
  else i:=0;
  j:=vInt mod 26;
  if j=0 then j:=26;
  if i>0 then vString:=Chr(64+i)//第一碼英文轉換處理
  else vString:='';
  vString:=vString+Chr(64+j);//第二碼英文轉換處理
  Result:=vString;
end;