ActiveDelphi

[Mjcl]

Ola pessoal. Gostaria de uma ajuda com datas.
Tendo uma variavel a:='17/01/2007' como eu faço para achar 3 dias anteriores automaticamente. Se a variavel for 01/04/2007 como a pesquisa chegaria a 31/03/2007, 30/03/2007....

[gustavocco]

Olá, vc pode utilizar a funcao incDay da biblioteca DateUtils...

Ex:

var a, tresdiasatras: TDateTime;
begin
a := StrToDate('01/04/2006');
tresdiasatras := incday(a,-3);
end;

Flw...
_________________
Top System - www.topsystem.com.br