很简单的问题，如何取得一个日期值是星期几？

Question

很简单的问题，如何取得一个日期值是星期几？

Answer 1

var
  Present: TDateTime;
  Year, Month, Day: Word;
  Strdate:string;
begin
  inherited;Getpicture;
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  strdate := '今天是 ' + IntToStr(Year) + '年'
                 + IntToStr(Month) +'月'
                 + IntToStr(Day) + '日';
  label2.caption:=StrDate     
end;