Buscar

Como acrescentar dias úteis a uma data?

Código

Function Datafinal(dataini:tdatetime; dias_uteis:integer):tdatetime; 
// Retorna uma data acresçida de mais um certo número de dias
// uteis descontando os fins de semana
var dw:integer;
begin
  dw := DayOfWeek(dataini)-1;
  result := dataini+dias_uteis+((dias_uteis-1+dw) div 5)*2;
end;  

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Data e hora
Adicionada dia: 04/06/03
Por: Felipe Monteiro
Visualizada: 8247 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009