Следующие число по расписанию (delphi)

[Simply-Art]

Есть дата последнего использование некоторого объекта в формате TDateTime. Есть недельное расписание (пока не знаю в каком формате хранить). Недельное расписание представляет собой перечисление, в какие дни используется объект, а в какие нет.

Например мы знает что объект используется по понедельникам и средам.
Из даты последнего использования можно извлечь день недели DayOfWeek(дата). Допустим дата была 16.02.2015 - понедельник. Значит следующие использование должно быть 18.02.2015 - среда.

Если бы мы использовали по вторникам и четвергам, и имея дату прошлого использования 17.02.2015 - вторник, то дата следующего использования оставалась бы по прежнему 17.02.2015 - вторник. Т.е. мы его все еще используем.

Подскажите, как мне узнать дату следующего использования, по дате прошлого использования и расписания? Хотя бы идейку подскажите

[Utkin]

Я бы перевел все даты в дни недели от 1 до 7 (или от 0 до 6). А дальше простая арифметика - пальцев двух рук вполне хватит. При этом хранил бы их в датах, пересчет только при определении нужно использовать объект или нет.

[evg_m]

for d:=currdate+1 to currdate +7 do //перебираем следующие 7 дней за текущим
  if dayofweek(d) in [3, 6] then //попали в расписание
     result:=d; // то что нам нужно
end;

P.S. идея в комментариях, а код чтобы не загромождать идею не рабочий (не те типы данных).

[Аватар]

const a: array[1..3] of Byte = (2,4,6); //вторник, четверг, суббота
var LastDate: TDateTime;
    i,j,Day: Integer;
begin
  LastDate:=EncodeDate(2015,2,16); //16-02-2015
  Day:=DayOfTheWeek(LastDate);
  j:=Low(a);
  for i:=Low(a) to High(a) do
    if a[i]>=Day then begin j:=i; Break; end;
  i:=a[j]-Day;
  if i<0 then Inc(i,7);
  ShowMessage(FormatDateTime('Следующая дата dd-mm-yyyy',LastDate+i));
end;

[Simply-Art]

Константы не подходят, т.к. расписание может меняться, но на идею натолкнули.
Буду хранить расписание в степенях двойки. При загрузки буду подгружать его в массив от 1 до 7 из булевых значений и сделаю простой цикл

var 
 m:array[1..7] of boolean;
 x,y:byte;
begin
 y:=0;
 while m[x]<>true do
  begin
   inc(x);
   inc(y);
   if x>7 then x:=1;
  end;
end;

где х - день недели последнего использования, а y - через сколько дней будет следующие использование. Думаю задача решена. Если есть еще более простые предложения, пишите.

[Poma][a]

Ну тогда уж set бахнуть

[Аватар]

Константа в примере. Естественно динамический массив в программе, от куда-то данные считываются и в него записываются и степени двойки ни к чему, лучше прозрачно и понятно 1,2,..,7. Код не поменяется, если динамический массив вместо константы

[Simply-Art]

Сообщение от Аватар

степени двойки ни к чему, лучше прозрачно и понятно 1,2,..,7.

А в файл как этот массив записывать и считывать, если объектов скажем 20? уж проще степени двойки одной переменной записать, или я опять ошибся?

[lomastr_]

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

[Utkin]

А в файл как этот массив записывать и считывать, если объектов скажем 20? уж проще степени двойки одной переменной записать, или я опять ошибся?

Через StringList естественно. Каждый объект строка, числа записывать через пробел.
Разбор строк в цикле через другой стринглист, где разделителем поставишь не перенос строки, а пробел. Главное на выходе/входе обычный текстовый файл, в котором могут храниться и поясняющая информация