Buscar Primeira data do mês e ultima

02/07/2008

3

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


Responder

Posts

02/07/2008

Joaoshi

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.


Responder

02/07/2008

Altingon

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);




Responder

03/07/2008

Robinhocne

Ok, tanto como a primeira e a segunda resposta deu certo!

muito obrigado

tópico resolvido.!


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira