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-br@yahoogrupos.com.br, Emanuel Coutinho <emanuelcouti...@...> escreveu > > Completando... para vc saber o início da próxima semana, basta adicionar 7 > > Sds, > _________________________ > Emanuel Coutinho > Salvador-Ba-Brasil > > > > > ________________________________ > De: Emanuel Coutinho <emanuelcouti...@...> > Para: delphi-br@yahoogrupos.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.maisbusca dos.yahoo. com > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > 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] >