DELPHI 获取本月 的第一天 和 最后一天
1、USER :DateUtils
2、使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可;
1
2
3
4
5
6
7
|
procedure
TForm1
.
btn1Click(Sender: TObject);
|