C++ Builder XE 返回年月日，星期几

 int   WeekDayOfYearMonth(int   year,   int   month)
{
        //0代表星期日，1代表星期一，...，6代表星期六
        return   TDateTime(year,month,1).DayOfWeek()-1;
}

TDateTime t=Date();
Tdyear=YearOf(t);
Tmonth=MonthOf(t);
Tday=DayOf(t);
RzLabel50->Caption=AnsiString(Tdyear)+" 年"+AnsiString(Tmonth)+" 月";