表内有身份证号、出生年月，要求核对一下是否想符合，该怎么整？身份证号有18位，15位，17位三种。（17位的是只有19，没有最后一个识别码），数目众多，望赐教！

区分3种情况进行。
Do case
case Len（Alltrim(身份证))=18
……
case Len（Alltrim((身份证))=15
……
case Len（Alltrim((身份证))=17
Endcae

[此贴子已经被作者于2006-7-10 17:33:04编辑过]

******功能：根据身份证计算出生日期,年龄,发放地,性别**********
sID=ALLTRIM(this.Parent.text1.Value)&&输入的身份证号

**********以下测试18位的身份证是否正确

IF LEN(sId)<15 .or. LEN(sId)>18
=MESSAGEBOX(sid+"为错误身份证号码[小于15位或大于18位]！",0,\'程序\')&&输入的位数不正确
RETURN(0)
ENDIF
s1=\' 7 910 5 8 4 2 1 6 3 7 910 5 8 4 2\'
s2=\'10X98765432\'
sID=UPPER(ALLTRIM(sID))
IF LEN(sId)=15
sId=STUFF(sId,7,0,"19")
ENDIF
NewId=LEFT(sID,17)
jym=0
FOR i=1 TO 17
jym=jym+val(subs(s1,i*2-1,2))*val(subs(NewId,i,1))
ENDFOR
NewId= NewId+ SUBSTR(s2,MOD(jym,11)+1,1)
IF VAL(SUBSTR(NewId,11,2))>12 .or. VAL(SUBSTR(NewId,13,2))>31&&输入的月日不正确
=MESSAGEBOX(sid+"为错误身份证号码！[月或日不对]",0,\'程序\')
RETURN(0)
ENDIF
IF LEN(sId)=18
IF RIGHT(sId,1)<>RIGHT(Newid,1)
=MESSAGEBOX(sid+"为错误身份证号码！",0,\'程序\')&&校验码不正确
RETURN(0)
ENDIF
ENDIF

**********以下根据得到的身份证计算出生日期，再计算年龄
d1=SUBSTR(NewId,7,8)
d1=STUFF(d1,5,0,".")
d1=STUFF(d1,8,0,".")
d2=CTOD(d1)
**********以下根据得到的身份证号码及全国身份证发放地表,找出发放地。
use
USE id_list EXCLUSIVE
loca FOR id_no=SUBSTR(this.Parent.text1.Value,1,6)
ffd=ALLTRIM(id_area)

**********以下根据得到的身份证，辨别性别。
xb=IIF(mod(val(SUBSTR(NewId,17,1)),2)=0,\'女\',\'男\')

**********如果都正确，显示各项数据

this.Parent.edit2.value = "您18位的身份证号码："+CHR(13)+NewId+CHR(13)+"出生于："+ALLTRIM(d1)+CHR(13)+"年龄："+STR(CEILING((DATE()-d2)/365),3)+"岁,性别："+xb+CHR(13)+"身份证发放地："+CHR(13)+ffd

ASP的
Function CheckCardId(e)
arrVerifyCode = Split("1,0,x,9,8,7,6,5,4,3,2", ",")
Wi = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2", ",")
Checker = Split("1,9,8,7,6,5,4,3,2,1,1", ",")

If Len(e) < 15 Or Len(e) = 16 Or Len(e) = 17 Or Len(e) > 18 Then
CheckCardId= "身份证号共有 15 码或18位"
CheckCardId = False
Exit Function
End If

Dim Ai
If Len(e) = 18 Then
Ai = Mid(e, 1, 17)
ElseIf Len(e) = 15 Then
Ai = e
Ai = Left(Ai, 6) & "19" & Mid(Ai, 7, 9)
End If
If Not IsNumeric(Ai) Then
CheckCardId= "身份证除最后一位外，必须为数字！"

Exit Function
End If
Dim strYear, strMonth, strDay
strYear = CInt(Mid(Ai, 7, 4))
strMonth = CInt(Mid(Ai, 11, 2))
strDay = CInt(Mid(Ai, 13, 2))
BirthDay = Trim(strYear) + "-" + Trim(strMonth) + "-" + Trim(strDay)
If IsDate(BirthDay) Then
If DateDiff("yyyy",Now,BirthDay)<-140 or cdate(BirthDay)>date() Then

CheckCardId= "身份证输入错误！"
Exit Function
End If
If strMonth > 12 Or strDay > 31 Then
CheckCardId= "身份证输入错误！"
Exit Function
End If
Else
CheckCardId= "身份证输入错误！"
Exit Function
End If
Dim i, TotalmulAiWi
For i = 0 To 16
TotalmulAiWi = TotalmulAiWi + CInt(Mid(Ai, i + 1, 1)) * Wi(i)
Next
Dim modValue
modValue = TotalmulAiWi Mod 11
Dim strVerifyCode
strVerifyCode = arrVerifyCode(modValue)
Ai = Ai & strVerifyCode
CheckCardId = Ai

If Len(e) = 18 And e <> Ai Then
CheckCardId= "身份证号码输入错误！"
Exit Function
End If
End Function
response.write CheckCardId("528337194801020025") ’’’’’’’’’这个不知是谁的身份证,我一试就出来了~~~~~~~~~哈哈
’’’’’这个如果返回的是输入的身份证,则表明正确,否则会提示出错...

身份证号第18位的计算规则,计算一下自己身份证号是很有意义的事!

算法原理
??? 根据〖中华人民共和国国家标准 gb 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。
??? 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。顺序码表示同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性，偶数分给女性。校验码是根据前面十七位数字码，按照iso 7064:1983.mod 11-2校验码计算出来的检验码。下面举例说明该计算方法。
??? 15位的身份证编码首先把出生年扩展为4位，简单的就是增加一个19，但是这对于1900年出生的人不使用（这样的寿星不多了）

某男性公民身份号码本体码为34052419800101001，首先按照公式⑴计算：
∑(ai×wi)(mod 11)..........................................(1)
公式(1)中：
i----表示号码字符从由至左包括校验码在内的位置序号；
ai----表示第i位置上的号码字符值；
wi----示第i位置上的加权因子，其数值依据公式wi=2（n-1）(mod 11)计算得出。
i 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
ai 3 4 0 5 2 4 1 9 8 0 0 1 0 1 0 0 1 a1
wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1
ai×wi 21 36 0 25 16 16 2 9 48 0 0 9 0 5 0 0 2 a1
根据公式(1)进行计算：
∑(ai×wi) =（21+36+0+25+16+16+2+9+48++0+0+9+0+5+0+0+2) = 189
189 ÷ 11 = 17 + 2/11
∑(ai×wi)(mod 11) = 2
然后根据计算的结果，从下面的表中查出相应的校验码，其中x表示计算结果为10：
∑(ai×wi)(mod 11) 0 1 2 3 4 5 6 7 8 9 10
校验码字符值ai 1 0 x 9 8 7 6 5 4 3 2
根据上表，查出计算结果为2的校验码为所以该人员的公民身份号码应该为 34052419800101001x

VFP的算法实现：
**********************************************

Parameters OldId
Local id1,id2,i,NewId
If Type("OldId")#"C"
?? Return
EndIf
id1=Strtran(OldId,' ','')
id2=0
If Len(id1)=15
?? id1=Left(OldId,6)+'19'+Right(OldId,9)
Endif
If Len(id1)=17
?? For i=1 to 17
???? id2=id2+Val(Substr(id1,18-i,1))*(Mod(2^i,11))
?? EndF
?? id1=id1+Iif(Mod(1-id2,11)=10,'X',Str(Mod(1-id2,11),1))?
Endif
NewId=id1
Return NewId


应该够了吧

哇，版主的学问真高!

显示身份证号与出生年月不符的记录(假设身份证号为15位,17位或18位的字符型数据；出生年月为日期型数据)
LIST FOR LEN(ALLTRIM(身份证号))=15 AND "19"+SUBSTR(ALLTRIM(身份证号),7,6)#TDOS(出生年月) OR ;
LEN(ALLTRIM(身份证号))=17 AND SUBSTR(ALLTRIM(身份证号),7,8)#TDOS(出生年月) OR ;
LEN(ALLTRIM(身份证号))=18 AND SUBSTR(ALLTRIM(身份证号),7,8)#TDOS(出生年月)