【Delphi】zz 获取本月第一天和最后一天的最简单的写法

procedure TForm1.FormCreate(Sender: TObject);
var
firstDay,lastDay:TDateTime;
begin
firstDay :
= StrToDate(FormatDateTime('yyyy-mm-1',Now)); (* 本月第一天 *)
lastDay :
= IncMonth(firstDay)-1; (* 本月最后一天 *)

mmo1.Lines.Add(DateTimeToStr(firstDay));
mmo1.Lines.Add(DateTimeToStr(lastDay));
end;

end.

posted @ 2011-09-08 19:56  Delcpp  阅读(2346)  评论(2编辑  收藏  举报