将身份证号由15位转换为18位的函数

最新推荐文章于 2025-05-12 16:10:32 发布

最新推荐文章于 2025-05-12 16:10:32 发布 · 487 阅读

文章标签：

#算法 #Google #C #C++ #C#

本文提供了一段Visual FoxPro (VFP) 代码，用于将15位身份证号码转换为18位。通过校验码算法确保了转换的准确性。

最近需要将身份证号由15位转换为18位，Google了半天也没发现在VFP下能够直接使用的，一些算法也不正确。自己写了一个，有需要的直接Ctrl+C吧。

在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