ufunction.~pas

专项拨款逐级下发系统的主要功能：对专项拨款申请系统审批通过的专项拨款进行资金下发和签收

unit Ufunction;

interface
uses sysutils;
function cleftstr(data,v:string;var left,right:string):integer;
function getdatestr(vdate:tdatetime):string; //取得日期串
implementation
function cleftstr(data,v:string;var left,right:string):integer;
var
l,i:integer;
begin
   l:=length(data);
   i:=pos(v,data);
   if i>0 then
    begin
     left:=copy(data,1,i-1);
     right:=copy(data,i+1,l-i-1);
    end
    else
    begin
    left:='';
    right:='';
    end;
    result:=i;
end;

function getdatestr(vdate:tdatetime):string;
var                //~~~~~~~~~~~~~~~~~~~~~~~~``取得日期串
i,o:integer;
year,month,day:word;
s,d,m:string;
begin
     decodedate(Vdate,year,month,day);
     d:=inttostr(day);
     i:=length(d);
     for o:=i to 1 do
     begin
      d:='0'+d;
     end;
     m:=inttostr(month);
     i:=length(m);
     for o:=i to 1 do
     begin
      m:='0'+m;
     end;
  result:=inttostr(year)+M+d;   //返回帐单号
end;
end.