Completando... para vc saber o início da próxima semana, basta adicionar 7
Sds, _________________________ Emanuel Coutinho Salvador-Ba-Brasil ________________________________ De: Emanuel Coutinho <emanuelcouti...@yahoo.com.br> 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...@ig.com. 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]
