Incrementar data automaticamente
Estou desenvolvendo uma aplicação que necessita fazer o seguinte processo, eu pego a data do começo das férias de um funcionario e presciso inserir em uma tabela a o status dele ele está de férias durante os dias que ele está de férias ele só pode ficar de férias 30 dias.
Ex:
O funcionario entrou de férias dia 10/9/2005 e saiu de férias no dia 10/10/2005 eu tenho que gravar em uma tabela todos os dias que ele ficou de férias exemplo:
Data status Data Status ...... Data status
11/09/2005 Férias 12/09/2005 Férias .......10/10/2005 Normal
Será que alguém sabe de alguma função que pode incrementar datas ou rotina para fazer isso automaticamente.
Jujan
Ex:
O funcionario entrou de férias dia 10/9/2005 e saiu de férias no dia 10/10/2005 eu tenho que gravar em uma tabela todos os dias que ele ficou de férias exemplo:
Data status Data Status ...... Data status
11/09/2005 Férias 12/09/2005 Férias .......10/10/2005 Normal
Será que alguém sabe de alguma função que pode incrementar datas ou rotina para fazer isso automaticamente.
Jujan
Jujan
Curtidas 0
Respostas
_rodfaria_
09/09/2005
var
i:integer;
data:TDate;
begin
data:=Now;
for i:=1 to 30 do begin
Memo1.Lines.Add(DateToStr(data));
data:=data+1;
end;
end;
Rod.
i:integer;
data:TDate;
begin
data:=Now;
for i:=1 to 30 do begin
Memo1.Lines.Add(DateToStr(data));
data:=data+1;
end;
end;
Rod.
GOSTEI 0
Jujan
09/09/2005
Valeu o código funcionou muito bem para o que eu presecisava.
GOSTEI 0