Como adicionar 1 mes na data

Delphi

26/05/2003

Hei pessoal quero adicionar um mes em uma data entao fiz o seguinte

var
data : Tdate;
begin
data:=date;
IncMonth(data, 1);
showmessage(datetostr(data));

mais nao adicionou nada

Obrigado


Rafael Roni

Rafael Roni

Curtidas 0

Respostas

Jairroberto

Jairroberto

26/05/2003

Olá, Rafael!

[i:30e82a5183]IncMonth[/i:30e82a5183] é uma [b:30e82a5183]função[/b:30e82a5183] que [b:30e82a5183]retorna[/b:30e82a5183] a data recebida como primeiro parâmetro acrescida da quantidade de meses recebido como segundo parâmetro, que por default tem valor 1. Portanto, para sua rotina funcionar corretamente, ela deve ser alterada para:

var 
  Data: TDate; 
begin
  Data := IncMonth(Date); 
  ShowMessage(DateToStr(Data)); 
end;


Um abraço,
Jair


GOSTEI 0
Rafael Roni

Rafael Roni

26/05/2003

Muito Obrigado pela ajuda


GOSTEI 0
POSTAR