Buscar por:

Função para retorno da diferança de dias entre datas

Código

Function SomaData(d1 : TDate ; d2 : TDate) : Integer;

var

dias : integer;

begin

   //

   if d2 > d1 then

   begin

   dias := 0;

   While d1 <> d2 do

     begin

     Inc(dias);

     d1 := d1 + 1;

     end;

   end

   else

   begin

   dias := 0;

   While d1 <> d2 do

     begin

     Inc(dias);

     d2 := d2 + 1;

     end;

   end;

   Result := dias;

   //

end;

Utilize como no exemplo:

procedure XX;

var

data : TDate;

X : integer;

begin

data := StrToDate('30/12/2007');

X := SomaData(Date,data);

end;