取这个月的第一天用什么函数，我太懒了，不想定代码

Question

取这个月的第一天用什么函数，我太懒了，不想定代码

Answer 1

Function GetFirstDay(Date:TDateTime):String;
begin
  Result:=getyear(date)+'-'+getmonth(date)+'-'+'01';
end;

Answer 2

formatdatetime('yyyy-mm',date) + '-01'

Answer 3

Function GetYear(Date:TDateTime):string;
var
  Year, Month, Day: Word;
begin
  DecodeDate(date, Year, Month, Day);
  if year<2000 then year:=year+2000;
  Result:=inttostr(year);
end;
Function GetMonth(Date:TDateTime):String;
var
  Year, Month, Day: Word;
begin
  DecodeDate(date, Year, Month, Day);
  if month>9 then
  Result:=inttostr(Month)
  else
  Result:='0'+inttostr(Month);
end;
Function GetFirstDay(Date:TDateTime):String;
begin
  Result:=getyear(date)+'-'+getmonth(date)+'-'+'01';
end;

Answer 4

uses 
  DateUtils;var
  d,d1:TDateTime;begin
  d:=StartOfAMonth(2003,4);//The Fool's Day! Haha
  d1:=EndOfAMonth(2003,2);//2003-2-28
  ...