销售管理软件版1楼: 在线等，如何通过身分证号取得出生年月日，并通过DateTimePicker显示出来？

2楼: 一、分析身份证信息
　 15位身份证号码：第7、8位为出生年份(两位数)，第9、10位为出生月份，第11、12位代表出生日期，第15位代表性别，奇数为男，偶数为女。
　　18位身份证号码：第7、8、9、10位为出生年份(四位数)，第11、第12位为出生月份，第13、14位代表出生日期，第17位代表性别，奇数为男，偶数为女。
其他：报错
二、
利用SUBSTR等函数截取字符串，并+‘/’符号，重新组合
用STRTODATE函数转换为日期型
Datetimepicker1.DATE：=。。。



具体请参考

http://www.pconline.com.cn/pcedu/soft/office/excel/0411/503019.html 如p3管理软件

3楼: y,m,d: Integer;
sr: TDate; //生日
if len(sfzh) = 17 //sfzh: String 身份证号
begin
y := StrToInt(copy(sfzh,7,4));
m := StrToInt(copy(sfzh,11,2));
d := StrToInt(copy(sfzh,13,2));
end
else begin
y := StrToInt(copy(sfzh,7,2));
if y > 10 then //这里最好取当前年份的后两位比较
y := 1900 + y
else
y := 2000 + y;
m := StrToInt(copy(sfzh,9,2));
d := StrToInt(copy(sfzh,11,2));
end;
sr := EncodeDate(y,m,d)

4楼: 关键是身份证号码的各位含义，
其他的就当操作一个字符串了！
字符串操作同“SiWeiLiuLang”即可！

5楼: StrToDate(19821112)

6楼: to zgj_gd,

这个方法不行，我刚试了

销售管理软件版7楼: 多人接受答案了。