Datas

[thranks]

Por favor alguém saberia como fazer o seguinte

Tenho uma data ex: 18/02/2005 tenho um parametro para subtrair dias desta data

que e um inteiro....ou seja quero tirar 5 dias desta data por ex..........

Acontece que na minha tabela eu não tenho ocorrencias para sabado e domingo...

então se eu tirar um numero de dias que passe por sabado e domingo ele conta o sabado e o domingo como nulos.......

Como faco para elimina-los de modo que ex:

hoje 22/02/2005 - 2 dias = 18/02/2005 ?????

muito obrigado!

[thranks]

oi

[s3c]

Olá colega, tente assim:

function Sub_Data(Data:TDateTime; Dias:Integer):TDateTime;
begin
  While SysUtils.DayOfWeek(Data-Dias) in [1,7] do
    Inc(Dias);
  Result := Data-Dias;
end;