Fórum somar dias uteis a uma data #231890

function Verificadiadata(Data:Tdate;Dias:integer):Tdate;
var
 Datainicial:Tdate;
 DataFinal:Tdate;
begin
datainicial:=data+1;
datafinal:=data+dias;
 while (Datainicial)<=Datafinal do
   begin
     if trunc(datainicial) mod 7 = 1 then
       begin
         datafinal:=Datafinal+1;
       end;
     datainicial:=datainicial+1;
   end;
 if trunc(datafinal) mod 7 = 1 then
  result:=datafinal+1
 else
  result:=datafinal;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(DateToStr(Verificadiadata(StrToDate(Edit1.Text),StrToint(Edit2.Text))));
end;