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

Delphi

29/06/2006

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 pedido como eu faço para que quando eu colocar a data do pedido automaticamente ele já escreva a data de entrega :roll:

Valeu Inte a proximo amigos :-)


Alecsandro Moura

Alecsandro Moura

Curtidas 0

Respostas

Salupe

Salupe

29/06/2006

É só você somar 3 à data de pedido, algo do tipo

dataentrega := datapedido + 3


GOSTEI 0
Marco Salles

Marco Salles

29/06/2006

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;



GOSTEI 0
Alecsandro Moura

Alecsandro Moura

29/06/2006

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


GOSTEI 0
POSTAR