Buscar Primeira data do m�s e ultima

Question

Precisa de buscar a primeira data do mes e mostrar em tedite buscar a ultima data do mes e mostrar em outro tedit....

Joaoshi · Answer

Colega na Unit [b:89fa4c83d2]DateUtils[/b:89fa4c83d2] tem as fun��es [b:89fa4c83d2]StartOfTheMonth[/b:89fa4c83d2] e [b:89fa4c83d2]EndOfTheMonth[/b:89fa4c83d2] que deve atender.

Ex.:

procedure TForm2.Button1Click(Sender: TObject);
begin
  edit1.Text := DateToStr(StartOfTheMonth(Date));
  edit2.Text := DateToSTr(EndOfTheMonth(Date));
end;

Espero ter ajudado.

Altingon · Answer

[code:1:e59499b574]Function FirstDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime;var  Ano, Mes, Dia : word;  DiaDaSemana : Integer;begin  DecodeDate (Data, Ano, Mes, Dia);  Dia := 1;  if lSabDom Then    begin      DiaDaSemana := DayOfWeek (Data);  if DiaDaSemana = 1 Then     Dia := 2  else    if DiaDaSemana = 7 Then      Dia := 3;  end;  FirstDayOfMonth := EncodeDate (Ano, Mes, Dia);end;Function LastDayOfMonth(Data : TDateTime; lSabDom : Boolean) : TDateTime;var  Ano, Mes, Dia : word;  AuxData : TDateTime;  DiaDaSemana : Integer;begin   AuxData := FirstDayOfMonth(IncMonth(Data, 1), False) - 1;  if lSabDom Then    begin      DecodeDate (Auxdata, Ano, Mes, Dia);      DiaDaSemana := DayOfWeek (AuxData);      AuxData := EnCodeDate (Ano, Mes, Dia);    end;  LastDayOfMonth := AuxData;end;DateEdit1.Date := FirstDayOfMonth(now,true);DateEdit2.Date := LastDayOfMonth(DateEdit1.Date,true);[/code:1:e59499b574]...

Robinhocne · Answer

Ok, tanto como a primeira e a segunda resposta deu certo!muito obrigadot�pico resolvido.!...