Pegar ultimo dia do mes anterior

Delphi

22/05/2003

Como faco para pegar o ultimo dia do mês anterior, que eu digitar em uma edit1.text

Ex eu digito 10/04/03, ele tem que me mostrar 31/03/03

Desde já eu lhe agradeço.


Marcelototini

Marcelototini

Curtidas 0

Melhor post

Okama

Okama

22/05/2003

procedure TForm1.Button1Click(Sender: TObject);
Var Data: TDateTime;
   Ano,Mes,dia :Word;
begin
data := StrToDate(Edit1.Text);
DecodeDate(Data,ano,mes,dia);
Data := EncodeDate(ano,mes,1);

Showmessage(FormatDateTime(´dd/mm/yyyy´,Data-1));
end;



GOSTEI 1

Mais Respostas

Will

Will

22/05/2003

function UltDiaMesAnt(Data: TDateTime):TDateTime;
var
dtAux: TDateTime;
begin
dtAux := StrToDate(´01/´ + FormatDateTime(´mm/yyyy´, Data));
Result := dtAux - 1;
end;


GOSTEI 0
POSTAR