怎么样取一个月的最后一天。

function LastDayCurrMon: TDate;
begin
   result := EncodeDate(YearOf(Now),MonthOf(Now), DaysInMonth(Now)) ;
end;