获取本月第一天和最后一天的最简单的写法//FirstDay,LastDay:TDateTime;....FirstDay:=StrToDate(FormatDateTime('yyyy-MM-01',Now))LastDay:=IncMonth(FirstDay)-1;....