Как определить день недели?
Материал из 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