指定月的最后一天？

下面的函数返回指定日期的所在月的最后一天的日期：

function LastDayOfMonth ( Dat : TDate ): TDate ;

var

 D , M , Y           : Word ;

begin

 DecodeDate ( IncMonth ( Dat , 1 ), Y , M , D );

 Result := EncodeDate ( Y , M , 1 ) - 1 ;

end ;