身份证号码验证函数
Function CheckIDCard(sStr, ByVal dDate, ByVal nSex)?CheckIDCard = "False"?If IsNull(sStr) Or sStr = "" Then Exit Function?If Not IsDate(dDate) Or dDate = "" Then Exit Function?If Not IsNumeric(nSex) O
原创
2004-09-15 20:07:00 ·
1121 阅读 ·
0 评论