Ir para o conteúdo

Dias Uteis


Criado por Glayson Junio, Fev 24 2011 19:27

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Glayson Junio

Glayson Junio
  • Glayson Junio
  • Colaborador
  • 1 Revisões

Revisou 24 fevereiro 2011 - 19:27

Atraves desta função pode se obter o numero de dias uteis entre duas datas. Muito util quando se tem que calcular dias trabalhados em sistemas de ponto.


function Dias_Uteis(DataI, DataF:TDateTime):Integer;
var contador:Integer;
begin
if DataI > DataF then
begin
result := 0;
exit
end;
Contador := 0;
while (DataI <= DataF) do
begin
if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then
Inc(Contador);
DataI := DataI + 1
end;
result := Contador;
end;





1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)