Как определить день недели?
Falk0ner, вс, 06/07/2008 - 15:34.
Как определить день недели?
procedure TForm1.Button1Click(Sender: TObject);
var
d: TDateTime;
begin
d := StrToDate(Edit1.Text);
ShowMessage(FormatDateTime('dddd',d));
end;
var
d: TDateTime;
begin
d := StrToDate(Edit1.Text);
ShowMessage(FormatDateTime('dddd',d));
end;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Функции DayOfTheWeek и DayOfWeek (см. справку по Дельфи)
Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Отправить комментарий