1 public function boolean of_calc_cardid_verifycode (string as_cardid, ref string as_verifycode);
2 /*
3 计算身份证校验码 王贤进 2014.03.15
4 参数：string as_cardid 身份证的前17位或18位（第18位可随便）
5 ref string as_verifycode 返回校验码，即身份证的第18位值
6 返回值： TRUE为有效身份证号,并将校验码在as_verifycode中返回
7 FALSE为无效身份证号
8 原理参考：http://zh.wikisource.org/wiki/GB_11643-1999_%E5%85%AC%E6%B0%91%E8%BA%AB%E4%BB%BD%E5%8F%B7%E7%A0%81
9 */
10 char Ai[17]
11 int Wi[17] = {7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2}
12 char codeTable[0 to 10]="10X98765432"
13 string ls_carid
14 ls_carid = Trim(as_cardid)
15 IF Len(ls_carid) <> 17 AND len(ls_carid)<>18 Then Return false
16 Ai = Left(ls_carid,17)
17 IF Not Match(Ai,"^[0-9]+$") Then Return false
18
19 long ll_l,ll_sum
20 ll_sum = 0
21 for ll_l = 1 To 17
22 ll_sum += long(Ai[ll_l]) * Wi[ll_l]
23 Next
24
25 as_verifycode = codeTable[ Mod(ll_sum,11)]
26 Return True
27 end function
