Delphiで月末日を求める

翌月の1日を代入し、そこから1日引くことで作成できる。

var
 LastDay : TDate;
 begin
 LastDay := StrToDate(‘2011/11/1’);
 LastDay := LastDay - 1;
 ShowMessage DateToStr( LastDay );
 end;