Question

delphi中用什么函数可以知道某一天是星期几

Answer 1

function DayOfWeek(const DateTime: TDateTime): Word;

sysutils单元里面的

如果你的delphi版本低没有这个函数, 尝试直接用它的源码：

function DayOfWeek(const DateTime: TDateTime): Word;
begin
  Result := DateTimeToTimeStamp(DateTime).Date mod 7 + 1;
end;