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

 Previous  Top  Next

    
 

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

d: TDateTime;

begin

d := StrToDate(Edit1.Text);

ShowMessage(FormatDateTime('dddd',d));

end;

 

 

©Drkb::00750

http://delphiworld.narod.ru/

DelphiWorld 6.0

 

 

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

©Drkb::00752

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)