option去掉:
1>パッケージ->ランタイムパッケージでビルド
2>リンカー->動的RTCを使用
3> CodeGuard-> CodeGuard検証
再コンパイル後はOKです
if(CjzZQ-> Value> 0)
CjzYME-> Value = DateToStr(IncMonth(StrToDate(CjzYMB-> Value + "-01")、CjzZQ-> Value-1))。SubString(1,7);
TdateTime MonthLastDay(year、month、1); //年、月都是整数
MonthLastDay = IncMonth(MonthLastDay、1);
MonthLastDay–;