怎样知道一个日期所在月的最后一天是几号？

Question

如题？谢谢

Answer 1

function TForm1._DayCountOfThisMonthOfDate(ADate: TDateTime): Word;
var Year, Month, Day : Word;
    TmpDate : TDateTime;
begin
  DecodeDate(ADate, Year, Month, Day);  Month:=Month+1;
  if (Month>12) then
      begin
        Month:=1;
        Year:=Year+1;
      end;  TmpDate:=EncodeDate(Year, Month, 1);
  DecodeDate(TmpDate-1, Year, Month, Day);  result := Day;
end;

Answer 2

//uses DateUtils;
//返回本月最后一天
function GetLastDayOfMonth(ADate: TDateTime): TDateTime;
var
  AYear, AMonth, ADay: Word;
  FDate, FDate1: TDateTime;
begin
  FDate := IncMonth(ADate);
  DecodeDate(FDate,AYear,AMonth,ADay);
  FDate1 := EncodeDate(AYear,AMonth,1);
  Result := FDate1 - 1;
end;

Answer 3

得到本月的最后一天的函数是，uses DateUtils;
showmessage(Inttostr(DaysInMonth(now)));