delphi 从身份证号取出生年月日

从身份证号取出生年月日的

function getbornfromidcard(idcard:string):tdate;

var

bornstr:string;

begin

if trim(idcard)<>'' then

begin

case length(trim(idcard)) of //

15:begin

bornstr:='19'+copy(trim(idcard),7,6);

end;

18:begin

bornstr:=copy(trim(idcard),7,8);

end;

end; // case

bornstr:=copy(bornstr,1,4)+'-'+copy(bornstr,5,2)+'-'+copy(bornstr,7,2);

getbornfromidcard:=strtodate(bornstr);

end;

end;