Fórum Mes anterior #352849
01/02/2008
0
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
Curtir tópico
+ 0Posts
01/02/2008
Marcelo.mileris
var D1 , D2 : TDate; begin D1 := StrtoDate(edit1.Text); D2 := IncMonth(D1,-1); // Aqui eu coloquei um valor negativo ShowMessage(DateToStr(D2));
Gostei + 0
01/02/2008
R_enatinha
Eu quero apenas o mes, ele pega o mes do sistema e me devolve um mes a menos.
desde já agredeço =*
Gostei + 0
01/02/2008
Marcelo.mileris
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
01/02/2008
Onjahyr
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
01/02/2008
Marcelo.mileris
Gostei + 0
01/02/2008
R_enatinha
Me deu uma idéia como resolver o meu problema! :D :D :D
beijos a todos!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)