Somar um m�s

Question

Tenho um problema, por exemplo, supondo que uma vari�vel data_fech = 12/09/2003. Eu preciso que some um m�s, mas que o resultado seja dia todo dia 10 e o m�s somado ao m�s referido na data da vari�vel.

Por favor me ajudem!!!!!

Wbb · Answer

Voc� pode usar a fun��o IncMonth(), entrando com o formato de data dd/mm/yyyy (como, 10/06/2003). Fa�a da seguinte maneira:

Edit2.Text := DateToStr(IncMonth(StrToDate(Edit1.Text), 1));

Onde: �1�, no fim da linha de c�digo, � o n�mero de meses que voc� quer que sejam acrescentados.

wbb

Marcelo Saviski · Answer

Para incrementar um m�s em uma data use a fun��o IncMonthmas se n�o for isso, ent�o esquece, n�o consegui interpretar muito bem a sua d�vida100+...

Bacalhau · Answer

Comecemos por pegar na data exemplo: 12/09/2003. Queres transformar isto em 10/10/2003, ou seja incrementar o m�s mas sempre no dia 10.

Partindo do princ�pio que � isto, c� vai:

var mes : integer;
ano : integer;

// vou capturar o m�s da data
mes := strtoint(copy(data,4,2));
// vou capturar o ano da data
ano := strtoint(copy(data,7,4));

// se n�o for Dezembro incremento o mes
if ((mes >1) and (mes < 12)) then mes := mes + 1
else
begin
// � dezembro. Tenho de colocar o mes = 1 e incrementar o ano
mes := 1;
ano := ano + 1;
end;

// agora escrevo na data final
// se data_final � uma string fica assim
data_final := �10/� + inttostr(mes) + �/� + inttostr(ano);
// se data_final � TDatetime fica assim
data_final := strtodate(�10/� + inttostr(mes) + �/� + inttostr(ano));

Abra�o do bacalhau

Mozill@ · Answer

:D Muito obrigado pessoal pela for�a!!! :D...

Midas · Answer

vardt_venc:tdate;dd,mm,aa:word;mes:string;begindt_venc:=strtodate(edit1.Text);dt_venc:=incmonth(dt_venc,1);decodedate(dt_venc,aa,mm,dd);mes:=inttostr(mm);if Length(inttostr(mm))=1 then mes:=�0�+inttostr(mm);if (dd>6) and (dd<=15) thenbeginedit2.Text:=�10�+�/�+mes+�/�+inttostr(aa);end;if (dd>16) and (dd<=25) thenbeginedit2.Text:=�20�+�/�+mes+�/�+inttostr(aa);end;if (dd>26) and (dd<=5) thenbeginedit2.Text:=�30�+�/�+mes+�/�+inttostr(aa);end;...

Midas · Answer

deu certo ?...

F�rum Somar um m�s #177836