说明: procedure TFRM_Date.DateChange(MyTime: TDateTime); var i, S: integer; StarNo: integer; Present: TDateTime; Year, Month, Day: Word; begin Label20.Caption := IntToStr(DateUtils.YearOf(Mytime)); Label17.Caption := IntToStr(DateUtils.MonthOf(Mytime)); L
<mytinaonly> 上传 | 大小:214kb