pegar ultimo dia data informada

30/06/2008

1

Pessoal é o seguinte: tenho dois edit tipo date, que serve para filtro, editdateini e editdatefim, como faco para pager o ultimo dia do mes quando for informado a data no editdateini e colocar no editdatefim. exemplo:

se digitar no editdateini a data 10/03/2008, quando sair do foco deste editdateini e for para o editdatefim ele ja preencher 31/03/2008, sempre o ultimo dia do mes, caso for de mes com 30 dias tb.

aguardo contato


Responder

Posts

30/06/2008

Paulo

Use a função EndOfMonth da Unit DateUtils.


Responder

30/06/2008

Altingon

Eu uso essa função:

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;

Uso:

DateEdit2.Date := LastDayOfMonth(DateEdit1.Date,true);



Espero ter ajudado


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