option去掉:
1>packages->build with runtime packages
2>Linker->use dynamic RTC
3>CodeGuard->CodeGuard validtion
将后重新编译就OK
if (CjzZQ->Value>0)
CjzYME->Value=DateToStr(IncMonth(StrToDate(CjzYMB->Value+"-01"),CjzZQ->Value-1)).SubString(1,7);
TdateTime MonthLastDay(year,month,1) ; //year,month 都是整数
MonthLastDay=IncMonth(MonthLastDay,1);
MonthLastDay–;