Como somar data
13/05/2003
0
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
Posts
13/05/2003
Xanatos
Ex: usando dois edits...
var D: Tdatetime;
begin
d:= StrtoDate(Edit2.Text);
d:= d+30;
Edit3.Text:= DateTostr(d); // 30 dias a mais...
end;
13/05/2003
Th_moreira
IncDay(<data>, <numero de dias>)
Análogamente, existem as funções incMinute, incHour, incMonth...
Att.
Thiago.
13/05/2003
Aroldo Zanela
Fabiano,
Var dData: TDate;
begin
dData := tbTabVENCIMENTO.Value + 180;
Clique aqui para fazer login e interagir na Comunidade :)