每月的最后一天和每月的第一天，的日期语句怎写？(10分)

每月的最后一天和每月的第一天，的日期语句怎写？

Category

date/time routines

function DayOfTheMonth(const AValue: TDateTime): Word;

Description

Call DayOfTheMonth to obtain the day of the month represented by a specified TDateTime value. DayOfTheMonth returns a value between 1 and 31.

Note: DayOfTheMonth returns the same value as the DayOf function
这个返回这个月共几天.
你可以用encodedate 合成，第一天肯定是1，最后一天是这个函数
查相关资料 f1

分书太少，
第1天很容易，yyyymm01
至于最后一天，告诉你一个坏办法，
用下个月的第一天减去1就行了。
yyyymmdd-1

function BOFM(date1:TDateTime):TDateTime; //月初
function EOFM(date1:TDateTime):TDateTime; //月末


//月初
function BOFM(Date1:TDateTime):TDateTime;
var
Year1,Month1,Day1:word;
begin
DecodeDate(Date1, Year1, Month1, Day1);
Result := EncodeDate(Year1, Month1, 1);
end;

//月末
function EOFM(Date1:TDateTime):TDateTime;
var
Year1,Month1,Day1:word;
begin
DecodeDate(Date1, Year1, Month1, Day1);
Result := EncodeDate(Year1, Month1, DayOfMonth(Year1,Month1) );
end;

关注

多人接受答案了。