[NIch]

Можно делать так

Код:

//***********************************************
//Дни недели по росийскому стандарту - первый день Понедельник
function DayOfWeekRus(S: TDateTime): byte;
begin
  case DayOfWeek(S) of
    1: Result := 7;
    2: Result := 1;
    3: Result := 2;
    4: Result := 3;
    5: Result := 4;
    6: Result := 5;
    7: Result := 6;
  end;
end;
//***********************************************