Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
thranks

Datas

Question

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!

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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;

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148124
    • Total Posts
      643422
×
×
  • Create New...