Como somar data

Delphi

13/05/2003

Pessoal como faço para soma data ex:

tenh hoje no banco de dados gravado.. 12/05/2003 ou seja esta data ja esta ultrapassada no meu cadastro e quero atualiza-la para mais 180 dias como ficaria isso em codigo...


Aguardo..


Fabiano


Fabianosouza

Fabianosouza

Curtidas 0

Respostas

Xanatos

Xanatos

13/05/2003

voce só precisa adicionar 180 ou o valor que quiser a uma variavel do tipo TDateTime...

Ex: usando dois edits...

var D: Tdatetime;
begin
d:= StrtoDate(Edit2.Text);
d:= d+30;
Edit3.Text:= DateTostr(d); // 30 dias a mais...
end;


GOSTEI 0
Th_moreira

Th_moreira

13/05/2003

Você pode utilizar a funçao incday

IncDay(<data>, <numero de dias>)

Análogamente, existem as funções incMinute, incHour, incMonth...

Att.

Thiago.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

13/05/2003

Pessoal como faço para soma data ex: tenh hoje no banco de dados gravado.. 12/05/2003 ou seja esta data ja esta ultrapassada no meu cadastro e quero atualiza-la para mais 180 dias como ficaria isso em codigo... Aguardo.. Fabiano


Fabiano,
Var dData: TDate;
begin
dData := tbTabVENCIMENTO.Value + 180;


GOSTEI 0
POSTAR