1、USER :DateUtils 2、使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可; procedure TForm1.btn1Click(Sender: TObject); begin mmo1.Lines.Add(FormatDateTime('yyyy-