pegar ultimo dia data informada

Delphi

30/06/2008

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


Ieustaquio

Ieustaquio

Curtidas 0

Respostas

Paulo

Paulo

30/06/2008

Use a função EndOfMonth da Unit DateUtils.


GOSTEI 0
Altingon

Altingon

30/06/2008

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


GOSTEI 0
POSTAR