日期

Question

如何取得具体日期比如 03-2-12 的具体星期几？
点击事件，函数或者控件都可以， 望详细说明。

Answer 1

Delphi的日期函数很丰富，uses一下DateUtils单元，有很多日期相关的函数，你要的可能都能找到。

Answer 2

DayOfTheWeek(日期)，返回1-7，where 1 indicates Monday and 7 indicates Sunday

Answer 3

function DayOfWeek(const DateTime: TDateTime): Word; $[SysUtils.pas
功能 返回日期时间DateTime所在的星期
说明 1(星期天),2(星期一),3(星期二),4(星期三),5(星期四),6(星期五),7(星期六)
procedure TForm1.Button1Click(Sender: TObject);
const
cWeekCn: array[1..7] of string =
('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
Edit1.Text := cWeekCn[DayOfWeek(Now)];
end;