Somar dias �teis (era: como posso fazer isso?)

Question

E a� galera.  Quero saber um modo que eu possa a fazer um seguinte :fiz um sistema que tem um campo data do pedido e data de entrega essa data de entrega vai ser padr�o que � tres  dias ap�s a data de...

Salupe · Answer

� s� voc� somar 3 � data de pedido, algo do tipodataentrega := datapedido + 3...

Marco Salles · Answer

cita��o do [b:e1cc39fb65]Alecsandro Moura[/b:e1cc39fb65] no t�pico bloqueado em

http://forum.clubedelphi.net/viewtopic.php?t=78639

Bom e um seguinte tenho um campo data do pedido e um campo de entrega a data de entrega � padr�o que � tres dias ap�s a data do pedido s� que eu quero que meu sistema conte os tr�s dias s� nos dias uteis que seriam de segunda a sexta, ent�o se a data do pedido for na sexta come�a a contar a partir de segunda. Ent�o alguem sabe como posso fazer isso se puder me responder mandando um exemplo agrade�o!! Isso Valeu Galera do Melhor forum da Internet;

[b:e1cc39fb65]Talvez uma maneira de fazer isto seje :[/b:e1cc39fb65]

function AcrescentarDatasUteis(DataPedido:Tdate):TDate;
var
i:integer;
begin
result:=datapedido;
for i:=1 to 3 do
  begin
    result:=result+1;
    if trunc(result) mod 7 = 0 Then
      result:=result+2
    else
      if Trunc(result + 6) mod 7 = 0 then
        result:=result+1;
  end;
end;

para chamar ;

procedure TForm1.Button2Click(Sender: TObject);
var
dataEntraga:TDate;
begin
DataEntrega:=AcrescentarDatasUteis(DataPedido);
end;

Alecsandro Moura · Answer

� ra isso ai que eu queria fazer valeu pela ajuda e at� a Proxima!!! :o  :D  :wink:...

F�rum Somar dias �teis (era: como posso fazer isso?) #324472