一个提取身份证号生日的函数

最新推荐文章于 2024-07-19 21:55:03 发布

青年站直了别趴下

最新推荐文章于 2024-07-19 21:55:03 发布

阅读量450

点赞数

分类专栏： DELPHI 开发文章标签： string integer

本文链接：https://blog.csdn.net/givemeliu/article/details/1558079

版权

DELPHI 开发专栏收录该内容

2 篇文章 0 订阅

订阅专栏

function SfzztOBdayY(ss:string):string;
var i,j :integer;
    f:string;
    aa:string;
begin
f:='-'  ;
    case length(ss) of
         15 :begin
          i:=7 ;
          j:=12;
      while i<=j do
          begin
          aa:=aa+copy(ss,i,1);
          if i=8 then
          begin
          aa:=aa+f;
          end;
          if i=10 then
          begin
          aa:=aa+f;
          end;
          i:=i+1;
          end;
end;
   18 :begin
          i:=7 ;
          j:=14;
      while i<=j do
          begin
          aa:=aa+copy(ss,i,1);
          if i=10 then
          begin
          aa:=aa+f;
          end;
          if i=12 then
          begin
          aa:=aa+f;
          end;
          i:=i+1;
          end;
end;
   19 :begin
          i:=7 ;
          j:=14;
      while i<=j do
          begin
          aa:=aa+copy(ss,i,1);
          if i=10 then
          begin
          aa:=aa+f;
          end;
          if i=12 then
          begin
          aa:=aa+f;
          end;
          i:=i+1;
          end;
end;
end;
  ss:=aa;
  Result := ss;
end;