身份证号码校验位计算函数（VB版） 点击数：443    发布日期：2005-7-8 9:24:00   【评论】【打印】【收藏此页到365Key】   function fcs(s)'s为17位号码，含“19”，仅返回最后的校验位sum1 = Mid(s, 1, 1) * 7 + Mid(s, 2, 1) * 9 + Mid(s, 3, 1) * 10 + Mid(s, 4, 1) * 5 + Mid(s, 5, 1) * 8 + Mid(s, 6, 1) * 4 + Mid(s, 7, 1) * 2 + Mid(s, 8, 1) + Mid(s, 9, 1) * 6 + Mid(s, 10, 1) * 3 + Mid(s, 11, 1) * 7 + Mid(s, 12, 1) * 9 + Mid(s, 13, 1) * 10 + Mid(s, 14, 1) * 5 + Mid(s, 15, 1) * 8 + Mid(s, 16, 1) * 4 + Mid(s, 17, 1) * 2Select Case sum1 Mod 11Case 0fcs = "1"Case 1fcs = "0"Case 2fcs = "x"Case 3fcs = "9"Case 4fcs = "8"Case 5fcs = "7"Case 6fcs = "6"Case 7fcs = "5"Case 8fcs = "4"Case 9fcs = "3"Case 10fcs = "2"End Selectend function

评论