DELPHI 获取本月 的第一天 和 最后一天

一、USER ：DateUtils

二、使用 StartOfTheMonth 和 EndOfTheMonth 函数获取便可；

procedure TForm1.btn1Click(Sender: TObject);

begin

     mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',StartOfTheMonth(Now)));

     mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',EndOfTheMonth(Now)));

end;