Недавно добавленные исходники

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

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

Все люди встретили новый век в этот новый год, а программисты встретят его в 2048 году.... т.к. по мнению программистов в 1 веке не 1000 лет, а 1024.

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