Como Somar Datas ????

Question

Ola Amigo do Forum,

meu proplema e somar data, tenho um formulario que recebe a a data do dia automatico num determinado campo, quero que ele pegue a data do dia e some 6 meses e me retorne a data futura, ja somada ao 6 meses , COMO FAZER ISSO ?

Cleyton · Answer

teoricamente 6*30 s�o 180 dias mas vc precisa saber quais mese tem 30, 31 ou vinte e nove dias, se o ano for divisivel por 4 � bissexto portanto fevereiro tem 29
o raciocinio � este, se naum conseguir desenvolver te ajudo com mais calma hoje estou muito atarefado pra fazer a rotina

Marcelofelix · Answer

Da uma olhada na unit DateUtils, essa unit tem varias fun��es que trabalh�o com data....

Cristiane.spl · Answer

utiliza essa fun��o IncMonth(date,qtda);aonde date � a data atualqtda  � a qtda de meses que vc quer incrementar na dataassim vc n�o precisa saber quantos dias tem o m�s...

Wesleygoncavles · Answer

nao consegui fazer isso ----[quote:2aff5b91c3=�cleyton�]teoricamente 6*30 s�o 180 dias mas vc precisa saber quais mese tem 30, 31 ou vinte e nove dias, se o ano for divisivel por 4 � bissexto portanto fevereiro tem 29o raciocinio � este, se naum conseguir desenvolver te ajudo com mais calma hoje estou muito atarefado pra fazer a rotina[/quote:2aff5b91c3]...

Wesleygoncavles · Answer

como fazer ????[quote:ba42822482=�Cristiane.Spl�]utiliza essa fun��o IncMonth(date,qtda);aonde date � a data atualqtda  � a qtda de meses que vc quer incrementar na dataassim vc n�o precisa saber quantos dias tem o m�s[/quote:ba42822482]...

Cabelo · Answer

utilize esta codifica��ov_data := formatdatetime(�dd/mm/yy�, now + 180);esta fun��o lhe retornar� uma string, se vc quiser um TDatetime, declare uma vari�vel deste tipo e:v_date := now + 180;se ainda vc quiser jogar uma data que seu sistema lhe d� fa�a assim :se for string strtodate(campo da data) + 180;isso se for para uma vari�vel Tdatetime se for pra uma vari�vel do tipo string � assim formatdatetime(�dd/mm/yy�, strtodate(campo da data) + 180);...

Luizhfj · Answer

Prezado amigo, vc pode converter as datas para o formato Float/Curr/Double e soma-las com se fossem n�s ex.:

var
dt1, dt2, dt3 : double;
begin
ShortDateFormat := �dd/mm/yy�;
if qy_conslancamentospago.Value = �0� then
begin
dt1:=qy_conslancamentos.fieldbyname(�venc�).asfloat;
dt2:= date;
dt3:=(dt1-dt2);
qy_conslancamentos.FieldByName(�diasvenc�).asstring:=CurrTostr(Dt3);
end
else
begin
dt1:=qy_conslancamentos.fieldbyname(�venc�).AsCurrency;
dt2:=qy_conslancamentos.fieldbyname(�pagamento�).AsCurrency;
dt3:=(dt2-dt1);
qy_conslancamentos.FieldByName(�atraso�).asstring:=CurrTostr(Dt3);
end;
end;

Atenciosamente,

Luiz Henrique

F�rum Como Somar Datas ???? #187116