Как определить день недели?

Материал из DRKB

Как определить день недели?[править | править код]

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


Source: http://delphiworld.narod.ru
ID: 00750



Функции DayOfTheWeek() и DayOfWeek() (см. справку по Дельфи)


Author: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
ID: 00752