在线等！！怎么得到当前星期

Question

在线等！！怎么得到当前星期

Answer 1

用函数DayOfWeek：
例：
var
  ADate: TDateTime;
  days: array[1..7] of string;
begin
  days[1] := 'Sunday';
  days[2] := 'Monday';
  days[3] := 'Tuesday';
  days[4] := 'Wednesday';
  days[5] := 'Thursday';
  days[6] := 'Friday';
  days[7] := 'Saturday';
  ADate := StrToDate(Edit1.Text);
  ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];
end;

Answer 2

var
  MyWeek:Word;
  MyTime:TSystemTime;begin
 GetLocalTime(MyTime);
 MyWeek := MyTime.stWeek;
end;

Answer 3

FormatDateTime('dddd',now)，就OKAY拉

Answer 4

D6不是有个关于时间的unit吗？什么decodetime
有个weakof好象，好久没搞d了都忘了。反正可以2句话得出来
如果多于2句就是？？办法。我以前做过的！