获取本月第一天和最后一天的最简单的写法

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