FAN_int2ExcelColChar functions

static void FAN_int2ExcelColChar(Args _args)
{
    Dialog  dlg = new dialog("please enter int number");
    DialogField dlgNum = dlg.addField(types::Integer,"数字");
    int     num;
    name    name;
str THK_int2ColChar(int _col)
{
    int     k, i;
    str     ret;
;
    i    = _col;
    while(i > )
    {
       k    = i mod ;
       if(k == )
       {
           ret  = "Z" + ret;
           i    = i - ;
       }
       else
       {
           ret  = num2char(k + ) + ret;
       }

       i    = i / ;
    }
    return ret;
}
;
    dlg.doInit();
    if(!dlg.run())
        return;
    num = dlgNum.value();
    name = THK_int2ColChar(num);
    setprefix(strfmt("%1",num));
    info(name);
}