unitpub.pas

一个音像租赁店铺的管理软件,可以维护影片库信息和会员信息,及日常业务的实现(出租/归还).这是我学delphi整一个月的纪念品,有些简单,不过我还是希望和大家分享一下我的成长历程.

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.