身份證由15位到18位的轉換

/******************************************************************************/ //函數名： gf_Card15To18 //功能說明：身份證由15位到18位的轉換 //輸入參數：1、Card15  輸入的身份證號碼 //返回值： 0=正常；1=失敗 //函數完成： /******************************************************************************/ string card18 int i,j,k,sum=0; card18=left(card15,6)+'19'+right(card15,9) for i=1 to 17  sum=sum+mod(2^i,11)*integer(mid(card18,18 -i,1)) next sum=mod(12 -mod(sum,11),11) if sum=10 then  card18=card18+'x' else  card18=card18+string(sum,'0') end if Return card18