Incrementando um mes em uma data???

Question

:D  Galera estou querendo incrementa 1 mes em uma data.Estou usando a linha de comando.IncMonth(Data, 1);Mais ele me retorna a data atual. Estou fazendo algo errado???Desde j� muito obrigado....

R�mulo Barros · Answer

Exemplo:[code:1:6d439a8811]procedure TForm1.Button1Click(Sender: TObject);var  MinhaData : TDateTime;begin  MinhaData := Now;  ShowMessage(DateToStr(IncMonth(MinhaData,1)));end;end.[/code:1:6d439a8811]...

Emerson Nascimento · Answer

supondo que [i:120a63e966]Data[/i:120a63e966] seja uma vari�vel do tipo data:Data := IncMonth(Data, 1);...

Paulo_amorim · Answer

Ol�S� explicando...IncMonth retorna um TDateTime com sua data incrementada...Se vc nao fizer alguma coisa receber seu IncMonth eh a mesma coisa que vc  fazer o seguinte:[code:1:8a67210b86]function SomaNumero(  Num: Integer ): Integer;begin  Result := Num + 1;end;[/code:1:8a67210b86]A fun��o retorna o munero somado de 1... o que vc esta fazendo eh +/- assim:[code:1:8a67210b86]i := 0;SomaNumero(i);ShowMessage( i );[/code:1:8a67210b86]Quando na verdade vc teria que fazer ShowMessage( IntToStr(SomaNumero(i) ) );Espero que ajudeAt�+...

Tathianam · Answer

Ol�! Minha solu��o:[quote:8e035d9277]function IncrementaMeses(fDataOri:TDateTime;fQtd:integer):TDateTime;var I: integer;    ano, dia, mes: word;begin  if fQtd = 0 then  begin    result := fDataOri;    exit;  end;    decodeDate(fDataOri,ano,mes,dia);  for I := 1 to fQtd do  begin    inc(mes);    if mes = 13 then    begin      mes := 1;      inc(ano);    end;  end;  try    result := EncodeDate(ano,mes,dia);  except // caso der errado, � porque tentou fazer 30/02, por exemplo    result := UltDataDoMes(EncodeDate(ano,mes,1));  end;end;[/quote:8e035d9277][quote:8e035d9277]function UltDataDoMes(Data: TDateTime): TDateTime;var xAno, xMes, xDia: word;    xAtual: tdatetime;begin  DecodeDate(Data, xAno, xMes, xDia);  Inc(xMes);  if xMes > 12 then  begin     Inc(xAno);     xMes := 1;  end;  xAtual := EncodeDate(xAno,xMes,1);  xAtual := xAtual - 1;  Result := xAtual;end;[/quote:8e035d9277]Espero ter ajudado  :)...

F�rum Incrementando um mes em uma data??? #245291