Pegar ultimo dia do mes anterior
22/05/2003
0
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.
Ex eu digito 10/04/03, ele tem que me mostrar 31/03/03
Desde já eu lhe agradeço.
Marcelototini
Curtir tópico
+ 0
Responder
Post mais votado
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;
Okama
Responder
Mais Posts
22/05/2003
Will
function UltDiaMesAnt(Data: TDateTime):TDateTime;
var
dtAux: TDateTime;
begin
dtAux := StrToDate(´01/´ + FormatDateTime(´mm/yyyy´, Data));
Result := dtAux - 1;
end;
var
dtAux: TDateTime;
begin
dtAux := StrToDate(´01/´ + FormatDateTime(´mm/yyyy´, Data));
Result := dtAux - 1;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)