VPF::Сортировка списка (массива) дат

A11MaNi

Дата 12.4.2011, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 5.4.2008
Где: россия, юфо

Репутация: нет
Всего: 1

Столкнулся с очередной задачей...
Есть у меня список дат в виде:

Цитата

01.01.2011
05.05.2011
10.10.2011

Задача стоит в том, чтобы из этого списка определить ближайшую дату.
Сперва я сделал так:

Код


var
  DateN, DateF: TDateTime;
  a: array[0..10] of integer;
  i: integer;
  min: integer;
begin
  DateN := StrToDate(FormatDateTime('dd.mm.yyyy', now));
  for i := 0 to ExDateSTRLST.Count - 1 do
  begin
    DateF := StrToDate(ExDateSTRLST[i]);
    a[i] := DaysBetween(DateN, DateF);
  end;
  min := 1;
  for i := 0 to ExDateSTRLST.Count - 1 do
    if a[i] < a[min] then
      min := i;
  ShowMessage(ExDateSTRLST[min]);
end;

то есть находил разницу между текущей датой и датой из списка и заносил эти разницы в массив, среди элементов массива находил наименьший, ну и соответственно дату ближайшую.

Вроде сперва все работало нормально.
Но...
Когда в списке попалась дата типа 04.04.2011 то именно она среди прочих отсортировалась как ближайшая.
Как я потом понял - вполне логично со стороны компа.
Ведь

Цитата

DaysBetween

возвращает в этом случае (если сегодня 12.04) число 8.

Следовательно вопрос - как выявить ближайшую дату из списка - не учитывая те, что уже "в прошлом"?

Snowy

Дата 12.4.2011, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(A11MaNi @ 12.4.2011, 14:42

)

DateN := StrToDate(FormatDateTime('dd.mm.yyyy', now));

Это, чтобы скучно не было, вместо DateN := now; ?
И зачем тебе массив дней?
И зачем тебе DaysBetween?

StrToDate(ExDateSTRLST[i]) - now = количество дней до указанной даты.
Если дата в прошлом, результат будет отрицательный.

Gwire

Дата 12.4.2011, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: 1
Всего: 4

Объяви свою DaysBetween:

Код


function DaysBetween(const ANow, AThen: TDateTime): Integer;
begin
    Result := Trunc( AThen - ANow );
end;

Прошедшие дни будут с минусом.

A11MaNi

Дата 13.4.2011, 08:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 5.4.2008
Где: россия, юфо

Репутация: нет
Всего: 1

Благодарю за советы!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »