将excel的列索引转换为相应字母。
摘要：
functionnumtochar(num:integer):string;varstr:string;m_num,num1,num2:integer;beginm_num:=num;str:='';num1:=m_numdiv26;num2:=m_nummod26;whilenum1>0dobeginifnum2>0thenstr:=char(num2-1+ord('A'))+strelsebeginstr:='Z'+str;num1:=num1-1;end;m_num:=num1;num1:=m_numdiv26;num2:=m_ 阅读全文
posted @ 2012-11-19 12:12 jxgxy 阅读(1214) 评论(0) 推荐(0) 编辑
