pegar ultimo dia data informada

30/06/2008

0

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

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar