Function GetFirstDay(Date:TDateTime):String; begin Result:=getyear(date)+'-'+getmonth(date)+'-'+'01'; end;
formatdatetime('yyyy-mm',date) + '-01'
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;
begin
Result:=getyear(date)+'-'+getmonth(date)+'-'+'01';
end;
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;
DateUtils;var
d,d1:TDateTime;begin
d:=StartOfAMonth(2003,4);//The Fool's Day! Haha
d1:=EndOfAMonth(2003,2);//2003-2-28
...