qtos dias de semana num perido selecionado
pessoal
como faço no delphi pra saber qtos dias de semana tem num periodo selecionado
exemplo:
entre 12/02/2008 a 11/03/2008 preciso saber quantos dias uteis tem(de seg a sext)?
obrigado
como faço no delphi pra saber qtos dias de semana tem num periodo selecionado
exemplo:
entre 12/02/2008 a 11/03/2008 preciso saber quantos dias uteis tem(de seg a sext)?
obrigado
Diogodumas
Curtidas 0
Respostas
Marco Salles
01/03/2008
Acho que o codigo abaixo funfa para aquilo que pretende
Qualquer disturbio , me passe o periodo desejado bem como o Numero de dias que voce na sua opinião deveria retornar pela função
P:s -->> Não me preocupei com aspectos de integridade da Função
(Verificar Data Válida , Verificar se DataFinal é Maior que a Data Inicial entre Outros) . Esses Ajustes ficam a seu Sabor
Espero que tenha sido Útil...
function TForm1.RetornarDiasSemanas(datainicial, datafinal: TDate): word;
var
Resto:word;
begin
case trunc(dataInicial) mod 7 of
0:DataInicial:=DataInicial+2;
1:DataInicial:=DataInicial+1;
end;
case trunc(dataFinal) mod 7 of
0:DataFinal:=DataFinal-1;
1:Datafinal:=DataFinal-2;
end;
Resto:=2*(Trunc(DataFinal - DataInicial) div 7) - 1;
result:=Trunc(DataFinal - (DataInicial+Resto));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(inttostr(RetornarDiasSemanas(strtodate(edit1.Text),strtodate(edit2.text))));
end;
Qualquer disturbio , me passe o periodo desejado bem como o Numero de dias que voce na sua opinião deveria retornar pela função
P:s -->> Não me preocupei com aspectos de integridade da Função
(Verificar Data Válida , Verificar se DataFinal é Maior que a Data Inicial entre Outros) . Esses Ajustes ficam a seu Sabor
Espero que tenha sido Útil...
GOSTEI 0
Diogodumas
01/03/2008
foi sim meu nobre
valeu pela dica.
abraçaoo
valeu pela dica.
abraçaoo
GOSTEI 0