unitpub.pas

来自「一个音像租赁店铺的管理软件,可以维护影片库信息和会员信息,及日常业务的实现(出租」· PAS 代码 · 共 38 行

unit UnitPub;

interface


  { Global Fuctions }

function GetInterval(SrcDT:TDateTime;DesDT:TDateTime):Integer;

implementation

function GetInterval(SrcDT:TDateTime;DesDT:TDateTime):Integer;
var
  tmpDT:TDateTime;
  i:Integer;
Begin
  tmpDT:=DesDT-SrcDT;
  i:=1;
  if tmpDT<1 then
    begin
      result:=1;
      Exit;
    end;
  while tmpDT>1 do
    begin
      tmpDT:=tmpDT-i;
      if tmpDT<1 then
      begin
        result:=i;
        Exit;
      end;
      i:=i+1;
    end;
End;

end.