Data altual 3, como?

Delphi

09/01/2005

Estou usando dois DateEdit.

Um está pegando a data atual. Como faço para que o outro DateEdit pegue a Data atual mais 3 dias?

O primeiro viz assim:

procedure TFrmEmprestar.FormCreate(Sender: TObject);
begin
DateEditEmprestimo.Text := dateToStr (now);
end;

Agradeço desde já. Valew :)


_celo

_celo

Curtidas 0

Respostas

Md

Md

09/01/2005

DateEditEmprestimo2.Text := dateToStr(now + 3);


GOSTEI 0
Paulo_amorim

Paulo_amorim

09/01/2005

Olá

Também existe a função IncDay que pode ser usada

tMeuTime := IncDay(Now, 3);


Espero que ajude
Até+


GOSTEI 0
_celo

_celo

09/01/2005

Valew, funcionou legal.
:)

Muito obrigado


GOSTEI 0
POSTAR