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