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 feira
vigente, ou seja, da semana corrente.
Obrigado.
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 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;
function ProximaSegundaHojeI nclusive( VData : TDateTime) : TDateTime;
begin
Result := VData + ((9 - DayOfWeek(VData) ) mod 7);
end;
ou
function ProximaSegundaHojeN aoConta(VData: TDateTime): TDateTime;
begin
Result := VData + ((8 - DayOfWeek(VData) ) mod 7) + 1;
end;
ou
function UltimaSegundaContan doComHoje( VData : TDateTime) : TDateTime;
begin
Result := VData - ((5 + DayOfWeek(VData) ) mod 7);
end;
Depende da necessidade.
Joao Morais
____________________________________________________________________________________
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]
