Boa tarde... Se entendi bem é assim q é feito: O sistema pega a data do dia padrão ao entrar na tela e ai atraves dessa data ele irá na proxima segunda-feira... Com essa ideia q vi ai em seu problema desenvolvi essa rotina a baixo... teste ela! Function ProximoDiaUtil (dData : TDateTime) : TDateTime; begin case DayOfWeek(dData) of 1 : dData := dData + 1; 2 : dData := dData + 7; 3 : dData := dData + 6; 4 : dData := dData + 5; 5 : dData := dData + 4; 6 : dData := dData + 3; 7 : dData := dData + 2; end; ProximoDiaUtil := dData; Result := dData; end; Att. Ricardo Diniz.
--- Em sex, 28/8/09, Richardson Freddo <mjrkon...@yahoo.com.br> escreveu: De: Richardson Freddo <mjrkon...@yahoo.com.br> Assunto: [delphi-br] Primeiro dia da semana Para: "Grupo" <delphi-br@yahoogrupos.com.br> Data: Sexta-feira, 28 de Agosto de 2009, 12:09 Pessoal. Resolvido problema de imagem no Postgre (que aliás é muito facil), estou com um probleminha, que talves seja só um erro de colocação do código no lugar certo. Tenho na tela um MonthCalendar. Eu preciso que ao iniciar o Form (onShow por exemplo) a data selecionada seja sempre a segunda feira. Ou seja, toda vez que o cliente abre o formulario, o MonthCalendar vai para o dia de "hoje". Mas eu preciso que ele fique sempre na segunda feira. Eu ja tentei DayofWeek, DayofTheWeek mas nao funciona. Se alguem puder colaborar, agradeço. Abraços Richardson Marcelo Freddo. ____________ _________ _________ _________ _________ _________ _ 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]
