G goltiger Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-26 #1 我是初学者，送分题。 如何通过身份证号（15位）来判断其人的年齡？ 请教！
E enzhiyiqiu Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-26 #2 用pos()函数，具体使用你可搜索下，全文检索里有很多这样的例子
C cococo Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-26 #3 copy('430236801003943',6,6)
M miaofeng Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-26 #4 uses ……,DateUtils,…… function GetAge(sNum:String):Integer; var sY,sM,sD:String; dDate:TDate; begin sY := Copy(sNum,7,2); sM := Copy(sNum,9,2); sD := Copy(sNum,11,2); dDate := StrToDate('19' + sY + '-' + sM +'-' + sD); Result := YearsBetween(Now,dDate); end; 如：122001800122051 返回23
uses ……,DateUtils,…… function GetAge(sNum:String):Integer; var sY,sM,sD:String; dDate:TDate; begin sY := Copy(sNum,7,2); sM := Copy(sNum,9,2); sD := Copy(sNum,11,2); dDate := StrToDate('19' + sY + '-' + sM +'-' + sD); Result := YearsBetween(Now,dDate); end; 如：122001800122051 返回23
Q qzj1 Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-26 #5 15位身份证的第7-—12位是6位出生年月日(nnyyrr),可用 copy 取年的子串，并用STRTOINT转换成整数后再加上1900或2000，用DECODEDATE取当前日期的年，二者相减即可得出年龄。
15位身份证的第7-—12位是6位出生年月日(nnyyrr),可用 copy 取年的子串，并用STRTOINT转换成整数后再加上1900或2000，用DECODEDATE取当前日期的年，二者相减即可得出年龄。
