怎样获取一个日期类型数据是星期几？怎样截取月份，是几号，是第几周？

Question

怎样获取一个日期类型数据是星期几？怎样截取月份，是几号，是第几周？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day,: Word;
 begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
    + IntToStr(Month) + ' of Year ' + IntToStr(Year);
这是你说的获取年月日的办法 

Answer 2

IntToStr(DayOfWeek(日期)) 获得星期几