определение дня недели по дате

[shurik_7866]

Есть ли какаято функция в Delphi или Windows которая бы по дате позволяла определить день недели?

[Demien]

Из Delphi World:

procedure TForm1.Button1Click(Sender: TObject);
var
  d: TDateTime;
begin
  d := StrToDate(Edit1.Text);
  ShowMessage(FormatDateTime('dddd',d));
end;

[Noor]

не успел немного

procedure TForm1.Button1Click(Sender: TObject);
var
  d: TDateTime;
begin
  d := StrToDate(Edit1.Text);// lдата в формате дд.мм.гггг
  ShowMessage(FormatDateTime('dddd',d));// в сообщении выводится день недели
end;

Пример:20.06.2011 = понедельник

[Пепел Феникса]

http://www.google.com/search?client=...utf-8&oe=utf-8

[shurik_7866]

Нашел функцию

Unit
SysUtils

function DayOfWeek(Date: TDateTime): Integer;

вс - 1, пн - 2, ... сб - 7

[Serge_Bliznykov]

Нашел функцию
Unit
SysUtils
function DayOfWeek(Date: TDateTime): Integer;

А что, в том примере, которые я поместил в ответ на Ваш пост в разделе WIN API
не было видно, что я привел исходники функции DayOfWeek из модуля SYSUtils ?!!



___________________________________ ________________________

А ещё, может оказаться полезной такая функция-обёртка (1- понедельник, 2-вторник, ... 7-воскресение)

function DayOfTheWeek(DateTime : TDateTime) : word;
const ISOFirstWeekDay = 2; {неделя по ISO начинается с понедельника}
begin
  DayOfTheWeek := ((DayOfWeek(DateTime) - ISOFirstWeekDay + 7) mod 7) + 1;
end;