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)+" 月";