Mes anterior

Delphi

01/02/2008

Olá Pessoas!

Eu queria uma ajudinha. Eu quero pegar o mes anterior, estou fazendo assim:

m:=FormatDateTime(´M´,Date-1);

Era para voltar 1 (Janeiro), mas está voltando 2(fevereiro).

Alguem tem alguma idéia?

Desde de já agradeço!


R_enatinha

R_enatinha

Curtidas 0

Respostas

Marcelo.mileris

Marcelo.mileris

01/02/2008

Pode tentar algo simples assim:

var
  D1 , D2 : TDate;
begin
  D1 := StrtoDate(edit1.Text);
  D2 := IncMonth(D1,-1); // Aqui eu coloquei um valor negativo
  ShowMessage(DateToStr(D2));



GOSTEI 0
R_enatinha

R_enatinha

01/02/2008

Acho q não fui especifica ou nao entendi a logica ae =D

Eu quero apenas o mes, ele pega o mes do sistema e me devolve um mes a menos.

desde já agredeço =*


GOSTEI 0
Marcelo.mileris

Marcelo.mileris

01/02/2008

Desculpe, agora eu li...
Declare a Unit DateUtils e utilize a função MonthOf


var
  D1 , D2 : TDate;
begin
  D1 := Date;
  D2 := IncMonth(D1,-1);
  ShowMessage(IntToStr([b]MonthOf[/b](D2)));



GOSTEI 0
Onjahyr

Onjahyr

01/02/2008

Só para ficar maisclaro...

ShowMessage(IntToStr([b:71091e16cf]MonthOf[/b:71091e16cf](D2)));

// Quando se utiliza o ´Code´ daqui do editor do fórum, não tem como colocar em negrito


GOSTEI 0
Marcelo.mileris

Marcelo.mileris

01/02/2008

Pois é... esqueci desse detalhe...


GOSTEI 0
R_enatinha

R_enatinha

01/02/2008

Obrigada pela ajuda!

Me deu uma idéia como resolver o meu problema! :D :D :D

beijos a todos!


GOSTEI 0
POSTAR