Мир Delphi
	Все самое интерресное что найдено в интернете о Delphi: компоненты, исходники программ, новые алгоритмы и решения.

Алгоритмы и решения / Время (2) / Определение деня недели

Функция DayOfWeek возвращает номер дня недели (1 – воскресенье, ... 7 – суббота).

procedure TForm1.Button1Click(Sender: TObject);
begin
  case IntToStr(DayOfWeek(date)) of
    1: Form1.Caption := 'Воскресенье';
    2: Form1.Caption := 'Понедельник';
    3: Form1.Caption := 'Вторник';
    4: Form1.Caption := 'Среда';
    5: Form1.Caption := 'Четверг';
    6: Form1.Caption := 'Пятница';
    7: Form1.Caption := 'Суббота';
  end;
end;