Pegar ultimo dia do mes anterior

22/05/2003

2

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.


Responder

Posts

22/05/2003

Okama

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;



Responder

22/05/2003

Will

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


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