Opa Ricardo, Embora pareça simples, mas até agora eu não consegui ainda exergar como eu posso juntar isso tudo.
Ou seja o banco de dados + a função Function ProximoDiaUtil (dData : TDateTime) : TDateTime; --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso <ricardo_engs...@...> escreveu > > 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...@...> 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 <aq.s@ 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] >
