Fórum Como adicionar 1 mes na data #162623
26/05/2003
0
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
var
data : Tdate;
begin
data:=date;
IncMonth(data, 1);
showmessage(datetostr(data));
mais nao adicionou nada
Obrigado
Rafael Roni
Curtir tópico
+ 0
Responder
Posts
26/05/2003
Jairroberto
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:
Um abraço,
Jair
[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
Responder
Gostei + 0
26/05/2003
Rafael Roni
Muito Obrigado pela ajuda
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)