怎么求date是星期几?

Question

1.怎么求date是星期几?2. 怎么将图标加入到状态栏?

Answer 1

1.  strSample := FormatDateTime('yyyy-mm-dd dddd', Date);
2.　选project->options->application。把图标一改你再运行看看：）

Answer 2

function DayOfWeek(Date: TDateTime): Integer;
project->options->application图标一改

Answer 3

uses DateUtils;DayOfTheWeek函数，返回指定TDateTime变量为该周的第几天，返回值介于1至7，星期一为第一天。

Answer 4

Uses SysUtils;DayOfWeek函数，返回指定TDateTime变量为该周的第几天，返回值介于1到7，星期日为第一天。

Answer 5

2、Delphi标准的状态栏好像不能放控件。试试第三方控件

Answer 6

怎么将图标加入到状态栏procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
    StatusDrawRect:=rect;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  image1.Height:=statusbar1.Height;
  image1.Width:=statusbar1.Width;
  with image1 do
   begin
     top:=StatusDrawRect.Top;
     left:=statusdrawrect.Left;
     parent:=statusbar1;
   end;
end;

Answer 7

case dayofweek(now) of 
  1: Edit1.text:='星期天';
  2:Edit1.text:='星期一'；
  3:Edit1.text:='星期二';
  4:Edit1.text:='星期三';
  5:Edit1.text:='星期四';
  6:Edit1.text:='星期五';
  7:Edit1.text:='星期六';
end;