Início e fim de uma semana

Delphi

20/05/2004

Bom dia a todos.

Existe alguma função que informe o início e o fim de uma semana ?

Por exemplo:
O usuário informaria as datas 01/05/04 e 20/05/04, então nós teríamos o seguinte:
1ª semana: 01/05/04 a 01/05/04
2ª semana: 02/05/04 a 08/05/04
3ª semana: 09/05/04 a 15/05/04
4ª semana: 16/05/04 a 20/05/04

O objetivo disto seria um relatório que mostra qual a semana que efetuou mais vendas em um mês.

Grato pela atenção.


Turbo Drive

Turbo Drive

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

20/05/2004

Acabei de fazer um programa q faz isso q vc quer.
Neste programa o usuario informa a data final e será colocado num stringgrid as datas das semanas anteriores (inicio e fim) de segunda a sábado.


var
  FrmVenda: TFrmVenda;
  dataI1, dataI2, dataI3, dataI4, dataF1, dataF2, dataF3, dataF4:TDate;

procedure TFrmVenda.DateTimePicker1CloseUp(Sender: TObject);
var dia:integer;
begin
   dia:=DayOfWeek(DateTimePicker1.Date);
   dataF4:=(DateTimePicker1.Date+(7-dia))-7;
   dataI4:=dataF4-5;

   dataF3:=dataF4-7;
   dataI3:=dataF3-5;

   dataF2:=dataF3-7;
   dataI2:=dataF2-5;

   dataF1:=dataF2-7;
   dataI1:=dataF1-5;

   StringGrid1.Cells[0,0]:=´Semana 4´;
   StringGrid1.Cells[1,0]:=DateToStr(dataI4);
   StringGrid1.Cells[2,0]:=DateToStr(dataF4);

   StringGrid1.Cells[0,1]:=´Semana 3´;
   StringGrid1.Cells[1,1]:=DateToStr(dataI3);
   StringGrid1.Cells[2,1]:=DateToStr(dataF3);

   StringGrid1.Cells[0,2]:=´Semana 2´;
   StringGrid1.Cells[1,2]:=DateToStr(dataI2);
   StringGrid1.Cells[2,2]:=DateToStr(dataF2);

   StringGrid1.Cells[0,3]:=´Semana 1´;
   StringGrid1.Cells[1,3]:=DateToStr(dataI1);
   StringGrid1.Cells[2,3]:=DateToStr(dataF1);
end;



GOSTEI 0
Turbo Drive

Turbo Drive

20/05/2004

Valeu irmão.


GOSTEI 0
POSTAR