Diminuir a data de hoje em 30 dias

[Eder]

Ola

Não to sabendo diminuir a data desta forma:

eu tenho a data de hoje no caso 11/08/2008 e quero diminuir digamos 20 dias e mostrar o resultado.

No caso como ficaria o código?

Grato

[Denis Courcy]

Ola

Não to sabendo diminuir a data desta forma:

eu tenho a data de hoje no caso 11/08/2008 e quero diminuir digamos 20 dias e mostrar o resultado.

No caso como ficaria o código?

Grato

Supondo que a data esteja no formato TDateTime, então basta diminuir assim:

Var Novadata: Tdatetime;

...

novadata := date - 20; //Se date = 11/08/2008, então novadata ficará com 22/07/2008

[Eder]

valeu..Denis...desculpe a demora em reposta eu estava fora..

Grato

t+

[seveN]

Aproveitando a pergunta, você saberia responder como faço para diminuir a data de hoje para o mesmo dia do mês anterior.

Se hoje é 01/08/2008 ou melhor, sempre voltar para o dia 01/xx/xxxx.

[José Luiz]

para ir para o primeiro dia do mês, faça o seguinte:

NovaData := '01' + FormatDateTime ( '/mm/yyyy', date ) ;

Um abraço,

José Luiz.