Retornar a Data Certa

Delphi

16/09/2005

Olá galera,
Bom, Preciso de uma ajudinha de vcs...

Preciso de alguma função que me retorne as datas dentro de um período..

Funciona da seguinte forma,
a Gerente escolhe o Perído Ex.: 10/06/2005 a 15/06/2005

tenho um processo de agendamento que agenda para o funcionário uma tarefa. Preciso dar um insert nessa tabela com estes periodos

Entao Ficaria Assim
10/06/2005
11/06/2005
12/06/2005
13/06/2005
14/06/2005
15/06/2005


Um Agendamento para cada Dia...

Alguem teria uma solução?

Abraços..


Tremonti

Tremonti

Curtidas 0

Respostas

Rjun

Rjun

16/09/2005

var
  Data1, Data2: TDateTime;
begin
  Data1 := StrToDate(´10/06/2005´);
  Data2 := StrToDate(´15/06/2005´);
  
  while (Data1 <= Data2) do
  begin
    ShowMessage(DateToStr(Data1));
    Data1 := Data1 + 1;
  end;
end;



GOSTEI 0
POSTAR