Delphi dicas

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

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;