Вычисление даты (Delphi)

[Simply-Art]

В переменной DT содержится текущая дата. Есть некоторое расписание. Расписание сохранено в виде числа меньше 128. Поясню, я кодировал дни недели так: пн-1, вт-2, ср-4, чт-8, пт-16, сб-32, вс-64.
По итогу нужно посмотреть, является ли текущая дата, датой обновления в расписании. Если нет, то нужно вычислить ближайшую предыдущий запланированную дату.
Например. Сегодня 18.11.2014. Переменная расписания содержит число 21. Это значит что обновление должно быть пн,ср,пт. Сегодня вторник. Ближайшее предыдущие число по расписанию 17.11.2014 (пн).
Помогите с кодом пожалуйста. Единственное что я смог сделать, это код декодирования дня недели в массив.

var
 daymass:array[1..7] of Boolean;
 DT:TDateTime;

procedure DecodeDay(DayCode:byte);
begin
if DayCode-64>=0 then
 begin
  DayCode:=DayCode-64;
  daymass[1]:=true;
 end;
if DayCode-32>=0 then
 begin
  DayCode:=DayCode-32;
  daymass[7]:=true;
 end;
if DayCode-16>=0 then
 begin
  DayCode:=DayCode-16;
  daymass[6]:=true;
 end;
if DayCode-8>=0 then
 begin
  DayCode:=DayCode-8;
  daymass[5]:=true;
 end;
if DayCode-4>=0 then
 begin
  DayCode:=DayCode-4;
  daymass[4]:=true;
 end;
if DayCode-2>=0 then
 begin
  DayCode:=DayCode-2;
  daymass[3]:=true;
 end;
if DayCode-1>=0 then
 begin
  DayCode:=DayCode-1;
  daymass[2]:=true;
 end;
end;

И да, как можно заметить, неделя начинается с воскресенья, это нормально.

[Stilet]

А если разложением?:

n:=21;i:=1;k:=1;
While i<64 do begin
  daymass[k]:=n and i;
  inc(k); i:=i shl 1;
end;

как можно заметить, неделя начинается с воскресенья, это нормально.

Это вопрос или нормально?

[Poma][a]

k := 0;

while DayCode > 0 do begin
    Inc(k);
    DayCode := DayCode shr 1
end;
daymass[k-1] := true;

Не?

Помогите с кодом пожалуйста.

А че сделать-то надо?
Я прально понимаю, что берем некую переменную, где записано число, когда должно быть пересчитано расписание.. Берем Min(текущая дата; дата, дата, когда должно быть пересчитано расписание)..
А потом идет от понедельника до Min и выводим все дни, по которым бежим.. не?

[Simply-Art]

Сообщение от Stilet

Это вопрос или нормально?

Если бы был вопрос, я поставил бы его так что нормально.

Сообщение от Poma][a

А че сделать-то надо?
Я прально понимаю, что берем некую переменную, где записано число, когда должно быть пересчитано расписание.. Берем Min(текущая дата; дата, дата, когда должно быть пересчитано расписание)..
А потом идет от понедельника до Min и выводим все дни, по которым бежим.. не?

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

[Аватар]

function AnalysisDate(dt: TDateTime; DayCode: Byte; var NearestDate: TDateTime): Boolean;
var i,k,xDayDt,xDayNr: Byte;
begin
  Result:=True;
  xDayDt:=DayOfTheWeek(dt);
  k:=64;
  xDayNr:=0;
  for i:=7 downto 1 do begin
    if DayCode>=k then begin
      if xDayDt=i then Exit;
      if (xDayNr=0) or ((i<xDayDt) and (xDayNr>xDayDt)) then xDayNr:=i;
      Dec(DayCode,k);
    end;
    k:=k shr 1;
  end;
  NearestDate:=IncDay(dt,xDayNr-xDayDt);
  if xDayNr>xDayDt then NearestDate:=IncDay(NearestDate,-7);
  Result:=False;
end;

var xDate: TDateTime;
...
  if AnalysisDate(EncodeDate(2014,11,18),21,xDate)
    then ShowMessage('Дата по расписанию')
    else ShowMessage(Format('Ближайшая дата %s',[DateToStr(xDate)]));

[Stilet]

Если бы был вопрос, я поставил бы его так что нормально.

Ну извини, не понял. Я привык жить по германской дате.
Так мой совет подошел? Или я окончательно не понял сути вопроса?

[Simply-Art]

Работой завалили, пока некогда проверить, постараюсь в ближайшее время все посмотреть и отписаться.

[min@y™]

А я вот так попробую:

uses Types, SysUtils, DateUtils;

{ Кодирование дней недели: 2^(N - 1),
    N - номер дня недели:
        1 - пнд, 00000001
        2 - втр, 00000010
        3 - срд, 00000100
        4 - чтв, 00001000
        5 - птн, 00010000
        6 - сбт, 00100000
        7 - вск. 01000000
}

// функция выдаёт ближайшую, начиная с сегодняшней, дату,
// попадающую под маску недельного расписания.
function GetNearDate(const Mask: Byte): TDate;
var
  dow: Byte;
begin
  if Mask and $7F = 0
    then raise EConvertError.Create('WTF?');
    
  Result:= Date();

  repeat
    dow:= (DayOfTheWeek(Result) and $07) - 1; // dow = 0...6

    if Mask and (1 shl dow) <> 0
      then Exit;

    Result:= Result + 1.0;
  until False;
end;

Ахтунг! Не отлаживал, надиктовал устно секретутке.