Buscar

Dias úteis entre 2 datas (desconta sábados e domingos)

Código

Function WorkDays_inDates(Dtini, Dtfin: TDateTime): Integer;
var
   dias, hoje: Integer;
   tmpDt: TDateTime;
begin
     dias := 0;
     tmpDt := Dtini;
     While tmpDt <= DtFin do
           begin
           Hoje := DayOfWeek(tmpDt);
           if not ((Hoje = 1) or (Hoje = 7)) Then
              Inc(Dias);
           tmpDt := tmpDt + 1;
           end;
     Result := dias;
end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Data e hora
Adicionada dia: 26/07/03
Por: Amilton Maciel
Visualizada: 3665 vezes

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