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
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
Curtir tópico
+ 0
Responder
Posts
30/06/2008
Altingon
Eu uso essa função:
Espero ter ajudado
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
Clique aqui para fazer login e interagir na Comunidade :)