身份证15转18的方法！
看看专家的思路和方法，对自己益处多多啊！


在VFP的Command窗口的键入命令MODIFY COMMAND GetNewID，将下面的代码复制到代码窗口中，保存后退出。

在Command中键入 ?GetNewID('372432710112001') 

LPARAMETERS cOldID
IF PARAMETERS() = 0  &&未传递参数
    RETURN '99'
ENDIF 
IF VARTYPE(cOldID) <> 'C'  &&传递参数类型不正确
    RETURN '88'
ENDIF 
LOCAL ARRAY aNumber[17]
LOCAL cLastCode AS Character, cNewID AS Character, nSum AS Integer, nMod AS Integer
aNumber[1]=7
aNumber[2]=9
aNumber[3]=10
aNumber[4]=5
aNumber[5]=8
aNumber[6]=4
aNumber[7]=2
aNumber[8]=1
aNumber[9]=6
aNumber[10]=3
aNumber[11]=7
aNumber[12]=9
aNumber[13]=10
aNumber[14]=5
aNumber[15]=8
aNumber[16]=4
aNumber[17]=2

*!* 校验码常数
cLastCode = "10X98765432" 
cNewID =SUBSTR(cOldID,1,6)+"19"+SUBSTR(cOldID,7,9)

*!* 将cNewID的每一位乘以aNumber数组中的每一位进行求和
nSum = 0
FOR i = 1 TO 17
    nSum = nSum + VAL(SUBSTR(cNewID,i,1)) * aNumber[i]
ENDFOR 

*!* 将和求余
nMod = MOD(nSum, 11) + 1
*!* 截取校验码放在身份证号的最后一位
cNewID = cNewID + SUBSTR(cLastCode, nMod, 1)
RETURN cNewID



转载请标明出处：http://blog.csdn.net/zhanghongju/archive/2009/06/11/4261422.aspx