提供您另外兩種函數的做法﹕
uses DateUtils
方法一
Var
  DT : TDateTime;
begin
  DT := EndOfTheMonth(Now);
end;    方法二
Var
  DT : TDateTime;
begin
  DT := EndOfAMonth(2004, 12);
end;