写代码吧: 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;
DateUtils: function StartOfTheMonth(const AValue: TDateTime): TDateTime; function EndOfTheMonth(const AValue: TDateTime): TDateTime;
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;
function StartOfTheMonth(const AValue: TDateTime): TDateTime;
function EndOfTheMonth(const AValue: TDateTime): TDateTime;