Res: Res: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e feriados cadastrado em tablela )
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]
Re: Res: Res: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e feriados cadastrado em tablela)
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]
Re: Res: Res: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e feriados cadastrado em tablela)
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]