Fiz Assim, utilizando a Ve_Feriado() enviada anteriormente.
Funciona, mas está demorando um pouco ! (Bom já é uma solução)
Ela vai somando 1 enquanto não é Finais de Semana e Feriados
Alguém tem alguma dica para melhorar isto...?
Vejam:
Function ACHA_DATA_DU( dDatini: TDateTime ; du : Integer) : TDateTime;
var
i: Integer;
dDatvenc:TDateTime;
Year, Month, DayIni, DayFin, DofWe : Word;
nDiaCorr, nSinal, nFimSem, wFer : Real;
begin
wFer := 0;
dDatvenc := dDatini;
for i := 1 to du do
Begin
ddatvenc := (ddatvenc+1);
//***** Verifica se é feriado ******
While Ve_Feriado(dDatVenc) Do
While EhFeriado(dDatVenc) Do
Begin
ddatvenc := (ddatvenc+1);
End;
//***** Verifica se é dia da semana (segunda a sexta) *****
Dofwe := DayOfWeek(dDatvenc);
if Dofwe = 07 then // Sábado
dDatvenc := dDatvenc+2
else
if Dofwe = 01 then // Domingo
dDatvenc := dDatvenc+1;
//****Quando forem feriados consecutivos (Ex: Carnaval)****
While Ve_Feriado(dDatVenc) Do
begin
dDatvenc := (dDatvenc+1);
end;
End;
Result := dDatVenc;
end;
Abraços
----- Original Message -----
From: "Rogério" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, December 02, 2004 5:43 PM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
>
> Este método, não dará o resultado esperado, pois o resultado
> de MinhaDataInicial+30 são dias corridos e não dias úteis.
> Acho que não entendeste...
> Preciso, somar somente Dias Úteis à uma Data e achar que dia cairá:
>
> Ex: Hoje: 02/12/2004 + 30 = 13/01/2005
>
> Tb. acho que não é feriado, nunca tive muita certeza.
> O que sei é que para os Bancos/Financeiras/Etc... não é um dia útil.
> Acho que estou chegando a solução de todo o problema.
> Vou testar, se der certo, aviso.
> [ ]'s
>
> ----- Original Message -----
> From: "Prisma Sistemas - Moacir" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, December 02, 2004 3:19 PM
> Subject: Re: [delphi-br] Re: DIAS ÚTEIS
>
>
> >
> > Rogerio,
> >
> > 1) Quanto a 2a feira de Carnaval - No que me consta não é feriado e sim
> > ponto facultativo (pelo menos é o que sei, caso esteja errado,
> desculpe-me).
> > Caso seja realmente feriado, basta vc alterar a função e incluir.
> >
> > 2) Chame a função assim:
> >
> > MinhaDataInicial = StrToDate('01/10/2004');
> > MinhaNovaData:=MinhaDataInicial+QtdDiasUteis(MinhaDataInicial,
> > MinhaDataInicial+30);
> >
> > Não testei, mas acredito que seja isto o que vc esta querendo
> >
> > [ ]´s
> > Moacir
> >
> > ----- Original Message -----
> > From: "Rogério" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Thursday, December 02, 2004 11:50 AM
> > Subject: Re: [delphi-br] Re: DIAS ÚTEIS
> >
> >
> > >
> > > Td. Bem mas...
> > > O que estamos comentando é :
> > >
> > > :- dada uma Data e, um Número de Dias Úteis, achar a Data Final.
> > >
> > > Novamente:
> > > Acha_a_Data_Dia_Util('01/10/2004',30)
> > > Que Retornará: 17/11/2004
> > >
> > > Outro detalhe, acho que tem alguns feriados (dias não úteis) que não
> estão
> > > sendo considerados.
> > > Ex.:
> > > - Segunda Feira de Carnaval
> > >
> > > Valeu.
> > > [ ]'s
> > >
> >
> >
> >
> >
> > --
> > No virus found in this outgoing message.
> > Checked by AVG Anti-Virus.
> > Version: 7.0.289 / Virus Database: 265.4.4 - Release Date: 30/11/2004
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
> >
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
