Como descobrir o dia de inicio e final de uma semana?

Question

Ol�, queria saber o dia de inicio e final da seman, eu informando o dia... deixe-me explicar melhor:

por exemplo,

Informo o dia: 19/07/2005
Inicio: 17/07/2005
Fim: 23/07/2005

como fa�o isso?

Aproveitando poderia ser tamb�m, o dia de inicio e final do m�s, se n�o for abusar muito... :d

Desde j� agrade�o

Rjun · Answer

[code:1:a35731116c]procedure InicioFimSemana(Data: TDateTime; var Inicio: TDateTime; var Fim: TDateTime);var  Dias: Integer;begin  Dias := DayOfWeek(Data);  Inicio := Data - (Dias - 1);  Fim := Inicio + 6;end;[/code:1:a35731116c]...

Titanius · Answer

Obrigado Rjun, funcionou perfeitamente......

Steve_narancic · Answer

Voc� tamb�m pode utilizar as fun��es da unit DateUtils que j� vem com o Delphi:

StartOfTheWeek, EndOfTheWeek

Ex.:

//na uses declare: DateUtils
procedure InicioFimSemana(Data: TDateTime; var Inicio: TDateTime; var Fim: TDateTime);
begin
  Inicio := StartOfTheWeek(Data);
  Fim := EndOfTheWeek(Data);
end;

Rjun · Answer

Vivendo e  aprendendo...n�o sabia dessas fun��es...vlw...

Massuda · Answer

[quote:81b4f7676e=�steve_narancic�]...unit DateUtils que j� vem com o Delphi[/quote:81b4f7676e]Essa unit est� dispon�vel a partir do Delphi 6....

F�rum Como descobrir o dia de inicio e final de uma semana? #288834