excel 如何判继身份证号是否正确?

来源:百度知道 编辑:UC知道 时间:2024/05/17 00:01:23

身份证号码是用最后一位做验证位的。验证算法也很简单,EXCEL完全可以做到。。不过EXCEL只支持14位数字上屏,输入18位身份证号码后最后4位会变成0。所以我这里把每位数字放在一个单元格。。这个表格暂找不到地方上传,做个图片,你参考一下:



根据tbwind提供的信息写了一个函数:
Public Function T_身份证号码(ByVal Str_身份证号码 As String) As Boolean
'检测身份证号码(18位)是否正确
Dim i As Integer
Dim n_sum, n_i As Integer
Dim n_year, n_month, n_day As Integer
Dim n_weight(9) As Integer
T_身份证号码 = False
'检测身份证号码长度检
If (Len(Str_身份证号