Как определить день недели?
01.01.2007
procedure TForm1.Button1Click(Sender: TObject);
var
d: TDateTime;
begin
d := StrToDate(Edit1.Text);
ShowMessage(FormatDateTime('dddd',d));
end;
DelphiWorld 6.0
Функции DayOfTheWeek и DayOfWeek (см. справку по Дельфи)