Somar mes

[[VAZA] 0]

Pessoal...tava mou cara sem mexer no delphi por causa de tempo...fui mexer hoje fiquei perdidinho...hehehehcomo eu faço para somar meses?por exemplo, hoje é dia 23/12/2005..eu quero somar 12 meses...dai cairia no dia certinho contando fevereiro e tudo...Abraçost+

[italo 0]

' date='Dec 23 2005, 10:12 AM' post='487465']

Pessoal...

tava mou cara sem mexer no delphi por causa de tempo...

fui mexer hoje fiquei perdidinho...heheheh

como eu faço para somar meses?

por exemplo, hoje é dia 23/12/2005..eu quero somar 12 meses...dai cairia no dia certinho contando fevereiro e tudo...

Abraços

t+

se vai somar 12 meses, porque não aumenta somente 1 ano??

 

uma maneira:

variavelQualquer := DataSource_algumaCoisa.DataSet.FieldByName('nomeDoCampoData').Value + 365;

[rprojetos 0]

alguem ai pode me dar uma ajuda na criacao de componentes

[[VAZA] 0]

é que esse valor é variável.....pode ser 12 meses, 24, 36...etcfalowww

[AbraaoRamiro 1]

Porque não faz por dias...procedure TForm1.Button1Click(Sender: TObject);var Vencimento : TDateTime;meses:integer;beginMeses:= (StrToInt(Edit1.text)*30);Vencimento:=Date+Meses;Edit2.Text:=FormatDateTime('dd/mm/yyyy',Vencimento);end;Assim, quando kizer acrecentar 12 meses coloka 355, quando foi 1 mês koloca30 e assim por diante... :natalwink:

[bastard2003 4]

uma maneira BEM mais pratica... declara a unit DateUtils (de D6 pra cima) e usa as funções...

IncYear

// função IncMonth ja ta na SysUtils

IncWeek

IncDay

IncHour

IncMinute

IncSecond

IncMilliSecond

todas elas funcionam da mesma maneira...

Funcao(Campo_date_time, Quantidade): TDateTime;

 

ex.:

 

IncYear(now, 2);

resultado:

27/12/2007

 

é isso ai galera... espero ter ajudado!