Submeta a data que vc teve no retorno da função à sua tabela de feriados; esse
retorno já é um dia da semana, certo? Se essa data de retorno for um feriado,
submeta essa data à sua função novamente.
Montar essa lógica é relativamente simples. Se tiver alguma dificuldade quanto
a isso, mantenha a lista informada.
[]'s
Ricardo.
"Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"
--- Em sex, 13/3/09, Alexsandro <a...@ig.com.br> escreveu:
Bom dia Emanuel,
Muito Obrigado veio, só que os feriados eu á fiz, eu até mostrei como fiz logo
abaixo. O que não estou conseguindo é usar tambem a tabela de feriados que
tenho no cadastro.
--- Em delphi...@yahoogrup os.com.br, Emanuel Coutinho <emanuelcoutinho@ ...>
escreveu
>
> Completando. .. para vc saber o início da próxima semana, basta adicionar 7
>
> Sds,
> ____________ _________ ____
> Emanuel Coutinho
> Salvador-Ba- Brasil
>
>
>
>
> ____________ _________ _________ __
> De: Emanuel Coutinho <emanuelcoutinho@ ...>
> Para: delphi...@yahoogrup os.com.br
> Enviadas: Sexta-feira, 13 de Março de 2009 8:01:40
> Assunto: Res: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e
> feriados cadastrado em tablela)
>
>
> Veja no help do Delphi a função StartOfTheWeek
>
> Lá está assim:
>
> Returns a TDateTime value that represents 12:00:00:00 AM on the first day of
> the week identified by a specified TDateTime value.
>
> Unit
>
> DateUtils
>
> Category
>
> date/time routines
>
> function StartOfTheWeek( const AValue: TDateTime): TDateTime;
>
> Description
>
> StartOfTheWeek returns the first expressible moment of the same week as the
> TDateTime specified by AValue. That is, it replaces the time portion of
> AValue with 0, changes the day to Monday, and returns the result.
>
> Note: StartOfTheWeek defines the week of AValue according to the ISO 8601
> standard. That is, the week starts on Monday and ends on Sunday.
>
> Tradução da nota: StartOfTheWeek define a semana de AVAlue em conformidade
> com o padrão ISO 8601. Isto é, A semana começa na segunda e termina no domingo
>
> Sds,
> ____________ _________ ____
> Emanuel Coutinho
> Salvador-Ba- Brasil
>
> ____________ _________ _________ __
> De: Alexsandro <a...@... br>
> Para: delphi...@yahoogrup os.com.br
> Enviadas: Quinta-feira, 12 de Março de 2009 22:35:16
> Assunto: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e
> feriados cadastrado em tablela)
>
> Boa noite pessoal,
>
> Como eu consigo o 1º dia útil a partir de uma certa data Ex. 14/03/2009
> no qual seria 16/03/2009, e se essa data estiver cadastrada como feriado na
> tabela feriados, ele retornasse o próximo dia, é se cair sábado ou domingo
> segue para a próxima, e assim vai...
>
> Consegui esse na net :
>
> Function ProximoDiaUtil (dData : TDateTime) : TDateTime;
> begin
> if DayOfWeek(dData) = 7 then // se cair no sábado que é 7
> dData := dData + 2
> else
> if DayOfWeek(dData) = 1 then // se cair no domingo que é 1
> dData := dData + 1;
> ProximoDiaUtil := dData;
> end;
>
> proced....
> resul := ( ProximoDiaUtil( 14/03/2009)) ;
>
> só que só pega os finais de semanas
>
> Alguem pode me ajudar com isso ?
>
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
