Рекурсивный поиск файлов в интервале дат(без времени,только день,месяц и год))

[AlexKhol]

Добрый день! Уже долго ломаю голову над тем как сделать поиск файлов в интервале дат. Вот что получилось:

procedure GetAllFiles(mask: string;List:TLIstBox;date:Tdatetimepicker;date2:Tdatetimepicker;status:TstatusBar);
var
  search: TSearchRec;
  directory: string;
  i:integer;

begin

  directory := ExtractFilePath(mask);

  // find all files
  for i := 1 to list.count do
   begin
   mask:=directory+List.Items[i-1];


  if FindFirst(mask, $23, search) = 0 then
  begin
    repeat
      // add the files to the listbox

        begin

            if(FileDateToDateTime(search.Time)>=date.Date)
and(FileDateToDateTime(search.Time)<=date2.Date)  then      begin
                    status.SimpleText:='Копирование:'+directory + search.Name;
form10.ListBox1.Items.Add(directory + search.Name);

      Inc(Count);

                    end;
       end;
    until FindNext(search) <> 0;

  end;

   end;
  // Subdirectories/ Unterverzeichnisse
  if FindFirst(directory + '*.*', faDirectory, search) = 0 then
  begin
    repeat
      if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
        GetAllFiles(directory + search.Name + '\' + ExtractFileName(mask),list,date,date2,status);
    until FindNext(search) <> 0;
    FindClose(search);
  end;
end;

Но поиск происходит не правильно,все дело в том ,что сравнение Time с DateTimePicker.DateTime происходит не только по дате,но и по времени.Подскажите как сделать поиск только по дате,без времени?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Аватар]

Один из вариантов из DateTime получить DateTime с отсечением времени

var xYear,xMonth,xDay: Word;
...
  DecodeDate(xDate1,xYear,xMonth,xDay);
  xDate2:=EncodeDate(xYear,xMonth,xDay);

[Serge_Bliznykov]

tip. функция trunc() применённая к аргументу типа TDateTime возвращает целое число - это и будет дата (без временной составляющей).

[AlexKhol]

Serge_Bliznykov,спасибо,работает))