Fórum Acrecentar dias em uma data ... #180919

Simplesmente SOME.
StrToDate(´10/10/2003´) + 10

Retornará 20/10/2003

Prezado colega:
Com o objetivo de enriquecer ainda mais o exemplo dado por nosso amigo, informo, bem mastigado, a forma que utilizo:

No seu Form você insere três Tedits.
No Edit1 você insere a data que deseja;
No Edit2 você insere um número inteiro de dias;
No Edit3 você tem a data atual, ou seja, a soma da data no edit 1 mais os dias do edit2.
A rotina é a seguinte:

Var
saida: TDateTime;
chegada: real;
tempo: TDateTime;
begin
saida := StrToDate(edit1.Text);
chegada := StrToFloat(edit2.Text);
tempo := chegada + saida;
edit3.text := FormatDateTime(´dd/mm/yyyy´,tempo);

MMTOOR2003