unitfunc.pas

来自「小型仓库管理系统」· PAS 代码 · 共 26 行

unit UnitFunc;

interface
  Function sss(a:string):string;

implementation

Function sss(a:string):string;
var s2,s3,s4,c:string;
begin
  s2:=Copy(a,1,4);
  c:=Copy(a,7,1);
  if c='-' then
    begin
     s3:=s2+'0'+Copy(a,6,1);
     s4:=s3+Copy(a,8,2);
    end
  else
    begin
     s3:=s2+Copy(a,6,2);
     s4:=s3+Copy(a,9,2);
    end;
  result:=s4;
end;
end.