Portal Acror Portal Acror Portal Acror
Sentimentos

Meu livro de poesias recém lançado.
Adquire o seu Aqui
Ou entre em contato

Home
  Estatisticas
  Recomende
  FAQ
Sistemas
  Codomínios
  Sistemas On-line
Suporte
  Produtos
Artigos
  Jornal
Administração
  Painel Controle
  PGDAS
  Nota Carioca
  Webmail
  Sentimentos
Downloads
  Curso on-Line
  Web Links
PHP
  Tools - PHP
  Manual PHP
Links
  Souza Ramos
  Lumagraf
  Traduz Online
  Games Bestlife

Atualização
Grátis
SistemaBaixar
TPM




FUNÇÃO PARA RETORNAR OS DIAS ÚTEIS

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;

São apenas dois argumentos, Data Inicial e Data Final, a idéia é fazer um looping enquanto a data inicial for menor que a data final, a partir dai vamos incrementando a data inicial e verificamos se é um sábado ou domingo com a função DayOfWeek, se não for, contamos 1 dia. Simples não?



[ Voltar ]




Copyright © 2010 - Portal Acror - Todos os direitos reservados



All logos and trademarks in this site are property of their respective owner. The comments are property of their posters, all the rest © 2002 by me
You can syndicate our news using the file
backend.php or ultramode.txt
PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Tempo para gerar esta página: 0.05 segundos