2009/8/31 Richardson Freddo mjrkon...@yahoo.com.br:
Bom dia pessoal.
Usei a funçao:
function ProximaSegundaHojeI nclusive( VData : TDateTime) : TDateTime;
begin
Result := VData + ((9 - DayOfWeek(VData) ) mod 7);
end;
foi exatamente o que eu estava procurando. Ele aponta para a segunda
Assunto: Res: [delphi-br] Primeiro dia da semana
Para: delphi-br@yahoogrupos.com.br
Data: Domingo, 30 de Agosto de 2009, 20:07
Obrigado pessoal, vou testar as dicas e volto mais tarde.
OBS: Eu preciso pegar a segunda feira da semana vigente .. ou seja.. sempre que
o usuario abrir o Form o
.
Richardson Marcelo Freddo.
De: Joao Morais jcmorai...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 28 de Agosto de 2009 23:34:16
Assunto: Re: [delphi-br] Primeiro dia da semana
2009/8/28 Ricardo Diniz ricardo...@yahoo. com.br:
Function
Diniz.
--- Em dom, 30/8/09, Richardson Freddo
mjrkon...@yahoo.com.brmjrkoning%40yahoo.com.br
escreveu:
De: Richardson Freddo mjrkon...@yahoo.com.br mjrkoning%40yahoo.com.br
Assunto: Res: [delphi-br] Primeiro dia da semana
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
-br] Primeiro dia da semana
2009/8/28 Ricardo Diniz ricardo...@yahoo. com.br:
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
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
;
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
:= dData + 3;
7 : dData := dData + 2;
end;
ProximoDiaUtil := dData;
Result := dData;
end;
--- 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
2009/8/28 Ricardo Diniz ricardo...@yahoo.com.br:
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
9 matches
Mail list logo