求：取得月份的第一天和最后天的函数

Question

取得系统日期后，想得到本月份的第一天，和最后 一天，用那个函数呢

Answer 1

写代码吧：
var
  Y,M,D:Word;
  Start_Date,End_Date:TDateTime;
begin
  DecodeDate(Date,Y,M,D);
  Start_Date:=EncodeDate(Y,M,1);
  if M=12 then
    End_Date:=EncodeDate(Y,M,31)
  else
    End_Date:=EncodeDate(Y,M+1,1)-1
end;

Answer 2

DateUtils：
function StartOfTheMonth(const AValue: TDateTime): TDateTime;
function EndOfTheMonth(const AValue: TDateTime): TDateTime;