Fórum como calcular dias entre uma data presente e passada #271733

function DifDateUtil(dataini,datafin:string):integer;
var a,b,c:tdatetime;
  ct,s:integer;
begin
if StrToDate(DataFin) < StrtoDate(DataIni) then
  begin
  Result := 0;
  exit;
  end;
ct := 0;
s := 1;
a := strtodate(dataFin);
b := strtodate(dataIni);
if a > b then
  begin
  c := a;
  a := b;
  b := c;
  s := 1;
  end;
a := a + 1;
while (dayofweek(a)<>2) and (a <= b) do
  begin
  if dayofweek(a) in [2..6] then
  begin
  inc(ct);
  end;
  a := a + 1;
  end;
ct := ct + round((5*int((b-a)/7)));
a := a + (7*int((b-a)/7));
while a <= b do
  begin
  if dayofweek(a) in [2..6] then
  begin
  inc(ct);
  end;
  a := a + 1;
  end;
if ct < 0 then
  begin
  ct := 0;
  end;
result := s*ct;
end; 

Uses
  DateUtils;
...
...
procedure TForm1.Teste;
Var
   Data2,
   Data1     : TDateTime ;
   Resultado : Integer   ;
begin
   Data1 := StrToDate(´01/03/2005´);
   Data2 := StrToDate(´10/03/2005´);
   If(Data1 >= Data2)Then
     Resultado := DaysBetween(Data2,Data1)
   Else
     Resultado := - DaysBetween(Data1,Data2);
   ShowMessage(IntToStr(Resultado));
end;